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ABSTRACT 


Different  computer  systems  have  different  programming  environments  in  spite  of 
their  similar  capabilities.  GEM  and  Macintosh  software  system  both  provide  an  operating 
environment  in  which  the  users  can  utilize  all  kinds  of  functions  and  routines  to  produce  a 
user-friendly  application  program.  Unfortunately,  the  programmers  have  to  repeat  the 
learning  procedure  and  recode  the  source  works  if  for  some  reason  the  application  program 
is  needed  to  run  on  both  IBM  PC  and  Macintosh  microcomputers.  In  this  thesis,  a  common 
interface  is  provided  for  programmers  to  reduce  duplicated  efforts  and  hopefully  to  get  the 
same  effect  in  both  operating  environments. 
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I.  INTRODUCTION 


Different  computer  systems  have  different  programming  environments  in  spite  of 
their  similar  capabilities.  Some  system  functions,  utilized  through  programming  language 
compilers,  work  in  the  environments  supported  by  software  production,  or  by  system 
hardware.  Although  the  environments  of  software  development  support  similar  algorithms 
and  tools,  they  usually  make  software  programmers  write  another  program  to  obtain  the 
same  result  from  different  computer  systems.  There  is  no  standard  interface  for  the  various 
workstation  (SUN,  APOLLO,  etc.)  systems. 

A.  PURPOSE  OF  THESIS 

In  this  thesis,  a  common  interface  for  a  graphic  software  environment  is 
established  to  create  systematical  functions  which  can  be  used  for  two  different  personal 
computing  systems:  Apple's  Macintosh*  and  IBM  PC  series.  The  most  important  method 
used  here  to  obtain  this  common  interface  is  the  Abstract  Specification  of  data  types,  also 
named  Abstract  Data  Type,  consisting  of  a  set  of  instances  and  a  set  of  primitive  operations 
which  provide  the  only  means  for  creating  and  interacting  with  the  instances.  The 
advantages  of  the  Abstract  Data  Type,  such  as  precise  specification,  modularity,  and 
information  hiding,  can  be  very  helpful  for  implementing  the  interfaces  easily  and  with  less 
errors.  [Ref.  4,  p.  18-19] 

The  development  environment  selected  here  is  a  graphics  based  software  system  that 
supports  both  window  management  and  a  menu  driven  style.  The  system  is  more  user 
friendly  and  it  becomes  a  definite  trend  toward  the  development  of  computer  workstation 
systems  because  using  the  visual  effects  of  graphics  can  generally  communicate 
information  more  effectively  than  text.  Menu  displays  save  people  the  trouble  of 
remembering  many  complex  operation  commands.  The  structure  for  user  friendly  system 
is  different  from  the  traditional  structure  of  software  (see  Figure  1).  The  traditional 
software  system  is  a  kind  of  hierarchical  structure  that  needs  top-down  approach  to 
implement  a  program.  The  user  friendly  system  needs  a  circular  polling  devices  like 
mouse,  keyboard,  floppy  disk  drive,  etc. 


*  Macintosh  is  a  trademark  of  Apple  Computer,  Inc. 
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B.  TOOLS 

The  primary  development  compiler  and  system  language  in  this  thesis  is  the  C 
language.  The  C  language  is  used  primarily  because  it  is  easily  ported  to  new  systems  and 
it  allows  the  user  to  access  his  resources  directly.  For  the  Macintosh  computer, 
LightspeedC™  (by  THINK  Technologies,  Inc.)  is  used,  and  LATTICE  C™  is  used  for  the 
IBM  PC  computer  with  GEM  (Graphics  Environment  Manager)  which  will  be  described 
later. 


Traditional  structure  of  software  Structure  for  user  friendly  system 


Fieure  1  Different  Structure  of  Software  Systems 


II.  PROGRAMMING  ENVIRONMENT  (User  Interface 

Technology) 


The  operation  and  control  procedures  should  be  simple  for  the  user  to  use  the 
computer  comfortably.  A  user-friendly  system  should  provide  all  the  information  needed 
by  the  user  in  a  graphics  display.  These  graphic  displays  are  referred  to  here  as  desktop. 
On  the  desktop,  the  user  can  slide  documents  around,  organize  work  in  folders,  throw 
things  away,  or  obtain  new  work — simply  by  moving  the  mouse  and  pressing  the  mouse 
button.  The  Macintosh  Operating  System  supports  such  an  operating  and  programming 
environment  on  Macintosh  Computer  [Ref.  2],  and  GEM  provides  a  comparable 
environment  for  the  IBM  PC.  GEM,  developed  by  Digital  Research,  Inc.(DRI),  is  an 
operating  environment  which  is  similar  to  an  operating  system  [Ref.  1].  Whereas  an 
operating  system  allows  the  program  to  utilize  console  and  disk  devices  in  a  standard 
manner,  the  GEM  operating  environment  allows  the  GEM  programmer  to  control  a  number 
of  graphics  devices  and  develop  application  interfaces  in  a  consistent  and  standard  fashion 
[Ref.  1].  So,  these  two  environments  allow  a  variety  of  high-level  functions  access  to 
peripheral  graphic  devices  and  whose  purpose  is  to  make  it  easier  for  the  application 
programmer  to  develop  software  that  is  both  efficient  and  easy  to  use.  In  fact,  the 
developed  software  is  very  similar  to  the  window-type  structure  used  in  Macintosh 
software  system,  which  is  rather  user-friendly  in  today's  software  development.  Figure  2 
shows  the  relationship  between  the  application  program,  the  user,  and  the  computer  [Ref. 
I.p4]. 
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The  GEM  Application 


1 

The  Operating 
System 

^  The  Computer  ^ 

Figure  2  The  Role  of  the  GEM  Operating  Environment 

With  the  GEM  functions,  the  application  program  can  control  many  devices 
manipulated  by  the  user  including  the  keyboard,  the  mouse,  the  screen,  the  printer,  and  the 
plotter  [Ref.  1],  GEM  is  very  similar  to  an  operating  system  in  that  it  allows  the  user  to 
write  programs  without  having  to  worry  about  what  kind  of  mouse  is  attached  to  the 
computer,  what  resolution  the  screen  has,  or  whether  the  computer's  monitor  is  color  or 
monochrome  [Ref.  1], 

Another  example  of  a  programming  environment  is  the  Operating  System  and  the 
User  Interface  Toolbox  in  Macintosh  [Ref.  2].  The  application  program  will  always  call  the 
routines  which  mostly  are  part  of  eitner  the  Operating  System  or  the  User  Interface  Toolbox 
and  in  the  Macintosh  ROM.  The  Operating  System  is  at  the  lowest  level;  it  does  basic  tasks 
such  as  input  and  output,  memory  management,  and  interrupt  handling.  The  User  Interface 
Toolbox  is  a  level  above  the  Operating  System;  it  helps  you  implement  the  standard 
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Macintosh  user  interface  in  the  application  program  [Ref.  3].  The  user  interface  is  the  most 
important  pan  of  the  user  friendly  computer  system.  In  plain  English,  an  interface  is  a 
junction  or  boundary  where  two  things  meet.  In  computerese,  it  refers  to  the  set  of  rules 
and  conventions  by  which  one  part  of  an  organized  system  communicates  with  another. 
Whenever  two  components  of  the  system  come  together,  they  exchange  information  by 
way  of  an  interface  [Ref.  3]. 

GEM  and  Macintosh  software  system  both  provide  an  operating  environment  in 
which  the  users  can  utilize  all  kinds  of  functions  and  routines  to  produce  a  user-friendly 
application  program.  Unfortunately,  the  programmers  have  to  repeat  the  learning  procedure 
and  recode  the  source  works  if  for  some  reason  the  application  program  is  needed  to  run  on 
both  IBM  PC  and  Macintosh  microcomputers.  In  this  thesis,  a  common  interface  is 
provided  for  programmers  to  reduce  duplicated  efforts  and  hopefully  to  get  the  same  effect 
in  both  operating  environments.  The  relationship  between  this  common  interface,  the  user, 
and  the  computers  is  shown  in  Figure  3. 
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III.  OVERVIEW  OF  GEM 


The  common  interface  mentioned  last  section  actually  consists  of  one  interface  with 
two  drivers,  one  on  IBM  PC  and  the  other  on  the  Macintosh.  It  can  be  extended  to  any 
other  mini-  or  microcomputers  which  provide  a  similar  operating  environment  and  a 
window  and  menu  style  structure.  Before  introducing  the  details  of  the  common  interface, 
the  components  of  the  GEM  software  environment  will  be  described. 

GEM  consists  of  two  major  functional  units:  the  Application  Environment  Services 
(AES)  and  the  Virtual  Device  Interface  (VDI);  both  provide  a  set  of  function  libraries  as  a 
graphic  interface  [Ref.  1].  To  build  a  typical  GEM  application,  the  user  could  implement 
the  data  fork  and  resource  fork  separately:  the  former  basically  consists  of  a  set  of 
procedures  in  the  language  that  the  program  is  written;  the  latter  represents  the  menu  bar 
and  its  associated  submenus,  form  alerts,  and  dialogs  created  by  another  GEM  application, 
known  as  the  Resource  Construction  Set  (RCS),  which  is  provided  by  DRI.  The  RCS 
allows  the  programmer  to  construct  the  images,  dialogs,  and  alerts  that  your  application 
uses  before  any  application  code  is  written  [Ref.  1].  GEM  also  provides  some  routines 
which  build  and  deal  with  resources  of  application.  It  is  less  complicated  when  some 
important  messages  need  to  be  modified  without  changing  the  application  codes.  This  is  a 
very  important  concept  of  establishing  resources  of  a  program  because  it  saves  the 
programmer  a  considerable  amount  of  time  and  energy,  when  making  complicated 
programming  changes  of  some  graphic  structure.  Thus,  the  application  program  is  more 
flexible  to  change. 

A.  The  Role  of  AES 

The  GEM  AES  provides  routines  which  can  be  utilized  to  build  the  desktop  and  are 
organized  in  sets  of  related  functions  called  libraries  [Ref.  1].  For  example,  all  the  routines 
that  manipulate  windows  are  collected  and  form  the  Window  Library  of  the  AES,  and  all  of 
the  event  routines  form  the  Event  Library,  and  so  on  [Ref.  1],  So,  the  AES  represents  a  set 
of  tools  which  can  be  useful  when  writing  the  first  GEM  application,  the  desktop,  and  in 
developing  the  common  interface.  AES  includes  a  limited  multitasking  kernel,  a  screen 
Manager,  and  1 1  libraries:  Application,  Event,  Menu,  Object,  Form,  Graphics,  File 
Selector,  Scrap,  Window,  Resource,  and  Shell.  The  GEM  kernel  is  a  limited  multitasking 
system  in  that  it  can  only  handle  five  tasks:  three  desk  accessory  programs,  one  application, 
and  the  Screen  Manager  [Ref.  1].  Actually  the  Screen  Manager  is  an  internal  task  for  event 
messages  reporting  to  the  AES  event  function.  The  GEM  AES  Event  Library  provides  the 
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foundation  that  governs  all  user  input  in  a  GEM  application.  These  input  actions  could  be 
keyboard  interrupts,  mouse  movement,  mouse  button  changes,  timer  expiration,  and 
messages  in  which  some  of  them  need  the  application  to  respond  when  receiving  related 
events  [Ref.  1].* 

B.  The  Role  of  VDI 

The  purpose  of  the  GEM  VDI  is  to  allow  the  user  to  control  many  different  graphic 
devices  with  the  same  functions.  The  user  can  use  the  drawing  routines  to  draw  circles 
without  considering  what  kind  of  output  device  will  be  used.  This  is  very  important 
because  unlike  IBM  PC,  Macintosh  has  more  strict  input  and  output  constrains  on 
hardware.  IBM  PC  has  a  huge  market  share  in  the  world  and  thousands  of  manufacturers 
who  provide  various  competitive  peripheral  devices.  Therefore,  portability  becomes 
indispensable  for  GEM.  The  VDI  not  only  has  a  collection  of  drawing  functions  which  can 
implement  various  shapes  including  points,  markers,  lines,  polylines,  graphics  text, 
rectangle,  and  so  on,  but  also  control  functions  which  open  and  close  workstations  (and 
virtual  workstations)  [Ref.  1]. 


The  details  of  all  functions  of  other  libraries  can  be  found  in  the  Programmer's  Guide  To  GEM  by  Balma 
and  Fitler  (1986). 


IV.  OVERVIEW  OF  MACINTOSH 


The  Macintosh  personal  computer  is  designed  in  the  way  that  the  user  can  learn  and 
use  easily.  Its  revolutionary  user  interface  distinguishes  the  Macintosh  from  other  personal 
computers.  Since  the  user  interface  acts  as  a  good  friend,  it  helps  the  user  to  communicate 
with  the  Macintosh  comfortably.  Everything  on  a  Macintosh  screen  is  displayed 
graphically;  the  Macintosh  has  no  text  mode.  Generally  speaking,  the  function  sets  are 
more  detailed  and  includes  more  categories  than  GEM.  All  these  functions  are  built  into 
every  Macintosh  in  ROM  (read-only  memory).  The  ROM  can  be  divided  into  three  parts: 
the  Macintosh  Operating  System,  which  handles  low-level  tasks  such  as  memory 
management,  disk  input/output,  and  serial  communications;  the  QuickDraw  graphics 
routines,  which  are  responsible  for  everything  displayed  on  the  screen;  and  the  User 
Interface  Toolbox,  which  implements  the  higher-level  constructs  of  the  user  interface,  such 
as  windows  and  menus  [Ref.  3,  p.  2],  The  routines  are  divided  according  to  function  in 
Macintosh  and  and  are  called  "managers"  [Ref.  2,  p.  1-9].  Figure  4  shows  the  whole 
function  distribution  in  the  Macintosh  [Ref.  2,  p.  I- 10]. 
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A  Macintosh  Application 


The  User  Interface  Toolbox 
(in  ROM) 

Resource  Manager 

QuickDraw 

Font  Manager 

Toolbox  Event  Manager 

Window,  Control, and  Menu  Manager 

T  extEdlt 

Dialog,  Desk,  and  Scrap  Manager 
T oolbox  Utilities 
Package  Manager 


Other  High-level  Software 
(In  RAM) 

Binary-Decimal  Conversion, 
International  Utilities,  and 
Standard  File  Package 


The  Operating  System 
(in  ROM) 

Memory  Manager 
Segment  Loader 

Operating  System  Event  Manager 
File  and  Device  Manager 
Disk,  Sound,  and  ROM  Serial  Driver 
Vertical  Retrace  Manager 
System  Error  Handler 
Operating  System  Utilities 


Other  Low-level  Software 
(in  RAM) 

RAM  Serial  Driver 

Printing  Manager 

Printer  Driver 

AppleTalk  Manager 

Disk  Initialization  Package 

Float-Point  Arithmetic  Package 

Transcendental  Fuctlon  Package 


A  Macintosh  Hardware 


Figure  4  Overview  of  Macintosh 


The  Macintosh  Toolbox  also  includes  the  Resource  Manager  which  serves  keep  the 
data  of  an  application  separate  from  its  code,  making  the  data  easier  to  modify  and  easier  to 
share  among  applications.  The  Macintosh  Resource  Manager  also  supports  more  resource 
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types  and  more  specified  details  than  GEM.  To  manage  and  process  the  resource 
information,  many  utilities  are  available  from  the  public  domain  [Ref.  2]. 

Before  the  Macintosh  II  come  out,  some  routines  in  QuickDraw  also  enabled 
applications  to  do  color  drawing,  including  eight  different  colors,  on  color  output  devices. 
All  nonwhite  colors  will  appear  as  black  on  black-and-white  output  devices.  In  Macintosh 
II,  more  sophisticated  color  drawing  routines  are  supported  with  232  colors. 

Anyone  who's  used  a  Macintosh  knows  all  about  windows.  The  application  displays 
all  the  information  in  the  windows  to  the  user,  and  the  user  tells  the  program  what  to  do  by 
clicking  the  mouse  or  hitting  the  keyboard.  There  can  be  any  number  of  windows  on  the 
screen,  and  they  can  overlap  in  any  order.  Two  different  windows,  the  application 
window  and  the  system  window,  both  have  their  own  characteristics  to  perform  different 
tasks  [Ref.  3]. 

Most  of  the  time,  the  menu  bar  appears  at  the  top  of  the  screen,  listing  the  titles  of  the 
available  menus.  One  of  the  user's  response  to  the  program  is  to  issue  a  command  from  an 
menu  item  under  the  title.  Also,  menus  can  be  of  various  types  in  Macintosh  to  behave  in 
certain  standard  ways.  General  speaking,  the  Macintosh  Operating  System  and  User 
Interface  Toolbox  provide  a  more  complete  function  set  of  facilities  for  working  with  the 
User  Interface  than  GEM  does  with  its  Operating  Evironment  [Ref.  3].  For  the  same 
reason,  it  is  also  more  complicated. 
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V.  DESIGN  OF  THE  COMMON  INTERFACE 


Before  starting  to  implementing  the  common  interface,  we  have  to  design  what 
functions  are  required  to  provide  the  useraccess  to  the  common  interface,  and  we  have  to 
design  common  interface  functions  that  both  Macintosh  and  GEM  can  support.  Basically 
the  common  interface  is  general  purpose  and  should  be  extendable.  Some  special  functions 
can  be  done  by  several  algorithms  and  we  need  to  think  about  possible  procedures  that  can 
finish  specified  task,  like  window  update  and  redraw,  and  slao  be  compatible  to  different 
computers.  Both  GEM  and  Macintosh  have  detailed  functions  that  may  work  in  different 
ways,  but  their  basic  view  of  the  user  interface  is  similar.  When  we  select  the  common 
portions  of  the  functions,  we  may  reduce  function  performance,  but  we  also  simplify  the 
interface.  Figure  5  shows  the  relationship  of  the  Macintosh  user  interface,  the  common 
interface,  and  the  GEM  operating  environment. 


Figure  5  the  relationship  of  all  the  interfaces. 


To  create  the  basic  user-friendly  interface,  i.e.,  providing  the  complete  graphical 
functions,  at  least  four  libraries  must  be  built;  the  menu  library,  the  primitive  object  library, 
the  window  library,  and  the  event  library. 

A.  Design  Methodology  and  Abstract  Data  Type 

When  we  decide  to  build  a  common  interface  which  can  perform  graphic  functions 
and  window  style,  the  most  important  consideration  is  the  structure  of  this  common 
interface  and  how  to  make  the  common  interface  easier  to  use.  The  structure  of  the 


common  interface  can  be  divided  into  four  libraries  which  can  be  implemented 
independently.  Every  library  groups  those  functions  which  are  relative  to  themselves. 
Also  in  every  library,  the  functions  can  be  futher  divided  into  several  subgroups  according 
to  their  tasks. 

Before  introducing  the  details  of  the  libraries,  we  will  discuss  the  design 
methodology  and  abstract  data  types  of  the  common  interface.  In  all  of  the  primitive 
drawing  objects,  the  rectangle  acts  a  very  important  role  in  the  common  interface.  When  a 
circle,  an  ellipse,  an  arc,  or  a  round  rectangle  are  drawn,  a  rectangle  is  always  needed  for 
setting  the  drawing  boundary  and  calculating  the  outline  of  the  specified  object.  In  GEM 
and  Macintosh,  they  use  different  data  structures  to  create  a  rectangle.  GEM  uses  a  top  left 
point ,  a  width  and  a  height  to  specify  a  rectangle  and  Macintosh  uses  two  points:  a  top  left 
point  and  a  bottom  right  point.  It  sounds  tricky  for  us  to  decide  which  data  structure  is 
better.  However,  we  are  not  going  to  worry  about  the  data  types  of  rectangle  or  point 
when  using  the  concept  of  Abstract  Data  Type.  We  think  about  a  rectangle  in  an  abstract 
way.  A  rectangle  consists  of  four  points  connected  with  four  outer  lines,  and  a  point 
consists  of  two  coordinate  values,  a  horizontal  and  a  vertical  value,  but  not  all  the  data  are 
necessary  to  create  a  rectangle  on  the  screen.  In  using  the  concept  of  Abstract  Data  Type, 
we  simply  design  a  set  of  functions  that  perform  all  the  operations  on  a  rectangle  and 
achieve  information  hiding  of  the  data  structure.  The  programmer  can  do  whatever  he 
wants  with  a  rectangle  by  utilizing  these  functions.  Several  representations,  including  the 
GEM  and  Macintosh  ones,  can  be  used  to  represent  the  rectangle  and  still  support  the 
rectangle  functions  defined  in  the  abstract  data  type.  The  functions  act  like  guards  or 
interfaces  that  surround  and  protect  the  data  structure  in  the  center  (see  Figure  6). 
Obviously,  the  different  data  structures  on  the  Macintosh  and  GEM  are  irrelevant.  We 
follow  the  same  design  methodology  of  abstraction  and  information  hiding  on  all  the 
functions  in  the  interface. 
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Functions 


Figure  6  The  Data  Structure  and  Functions  in  Abstract  Data  Type 

After  implementing  the  design,  the  programmer  won't  need  to  manipulate  the  point 
and  rectangle  directly  because  he  can  utilize  the  functions  which  are  provided  by  the 
common  interface  to  deal  with  the  rectangle  or  point.  However,  we  still  need  to  select  a 
data  type.  In  C,  they  are  defined  below: 
typedef  struct 
{ 

Int  v,h; 

}  Point ; 

typedef  struct 

{ 

Point  topLeft; 

Point  botRight; 

}  Rect ; 


#define  top  topLeft.v 

#define  left  topLeft.h 

#define  bottom  botRight.v 

#define  right  botRight.h 

When  the  programmer  wants  to  write  an  application  program,  the  organization  of  the 
program  becomes  easy  by  using  the  concept  of  the  common  interface.  In  fact,  the  Event 
Library  which  provides  the  function  that  always  generates  fixed  messages,  or  events,  has 


made  the  program  only  need  to  take  care  of  the  events.  By  notification  of  these  events,  the 
program  can  receive  commands  from  the  menu  selection  or  handle  the  variation  of  the 
mouse  button  and  movement  issued  by  the  user. 

All  the  necessary  definitions  used  by  the  common  interface  are  put  in  the  file 
"ASBIND1.H"  for  both  Macintosh  and  GEM.  To  make  sure  that  the  program  runs  well, 
the  programmer  better  selects  the  relative  one  when  compiling  the  program.  Similarly,  the 
programmer  might  have  a  data  type  that  is  similar  to  the  common  interface  to  keep  track  of 
all  the  background  information.  The  most  obvious  example  in  the  DEMO  program  which 
will  be  introduced  in  next  chapter,  is  the  usage  of  the  'Winlist'  structure  which  retains  all 
the  useful  information  about  a  window. 

B.  Design  of  the  Primitive  Object  Library 

The  Primitive  Object  Library  supports  the  manipulation  of  the  primitive  objects  of  the 
abstract  specification  —  the  Point  and  the  Rectangle.  As  background,  the  graphic  display 
device  is  subdivided  into  discrete  areas  known  as  pixels.  As  far  as  the  graphic  device  is 
concerned,  pixels  are  the  smallest  unit  of  manipulation.  Reference  to  particular  pixels  on 
the  abstract  screen  are  via  an  imposed  coordinate  system.  The  origin  or  (0,  0)  pixel  is 
located  at  the  upper  left  comer  of  the  screen.  In  the  Abstract  Specification,  there  is  a  one  to 
one  mapping  between  points  and  pixels.  A  point  is  defined  by  specifying  its  horizontal  and 
vertical  displacement  from  the  origin  of  a  graphic  environment.  However,  these 
displacements  are  relative  to  a  particular  window  environment  in  which  the  point  is  used. 
Rectangles  are  defined  by  specifying  the  top  left  and  bottom  right  comers  of  the  rectangle 
(see  Figure  7)  [Ref.  2,  p.  1-140]. 
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Figure  7  A  Rectangle  and  the  Origin 

In  the  following  description  of  the  Primitive  Object  Library,  as  well  as  the  other 
libraries,  we  will  explain  all  functions  in  the  C  language  style  with  their  parameters.  In  the 
Primitive  Object  Library,  the  whole  functions  can  be  classified  into  three  sets:  the  Point  set, 
the  Rectangle  set,  and  the  Point  and  Rectangle  translation  set. 

1.  The  Point  Set 

As  mentioned  before,  a  point  is  specified  by  two  integers  which  are  coordinate 
values.  We  need  enough  functions  to  calculate  or  transfer  the  data  type  about  point  and 
integer.  Some  C  compilers,  because  they  do  not  allow  passing  structs  as  arguments, 
require  the  address  of  the  Point  to  be  passed  instead.  There  are  five  functions  in  the  Point 
set. 

a.  Set  point  by  integers 

Given  two  integers  which  represent  the  X  and  Y  coordinate  (the  horizontal 
and  vertical  positions  of  the  point  respectively),  the  function  returns  a  point. 

State  set_point  (x,  y,  pt) 

Input:  Int  x,  y  the  value  of  the  X  and  Y  coordinate  respectively. 

Output:  Point  *pt  the  returned  point. 

b.  Get  X  coordinate  value  from  point 

Function  which  returns  the  horizontal  coordinate  value  of  the  input  point. 

Int  ret_val  =  get_x_coord  (pt) 

Input:  Point  *pt  the  given  point. 
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Input: 

Output: 


Output:  Int  retjval  the  X  coordinate  value. 

c.  Get  Y  coordinate  value  from  point 

Function  which  returns  the  vertical  coordinate  value  of  the  input  point. 

Int  ret_yal  =  get_y_coord  (pt) 

Input:  Point  *pt  the  given  point. 

Output:  Int  ret_val  the  Y  coordinate  value. 

d.  Test  two  equal  points 

Function  which  determines  if  the  two  input  points  are  the  same  point. 

Bool  ret_val  =  equalpt  (pi,  p2) 

Input:  Point  *pl,  *p2  the  two  given  points. 

Output:  Bool  ret_val  TRUE,  if  pi  and  p2  are  the  same  point. 

FALSE,  if  not. 

e.  Copy  point 

Function  which  copies  the  source  point  into  the  destination  point. 

State  copypt  (source,  dest) 

Input:  Point  *source  the  given  source  point. 

Output:  Point  *dest  the  returned  destination  point. 

2.  The  Rectangle  Set 

Some  functions,  which  pertain  to  the  calculation  of  two  rectangles,  belong  to 
this  category. 

a.  Set  intersection  of  rectangles 

Function  which  determines  the  rectangle  which  is  formed  by  the 
intersection  of  the  two  input  rectangles.  If  the  intersection  is  empty,  the  rectangle  returned 
will  be  defined  by  a  top  left  and  bottom  right  point  of  (0,  0). 

State  set_insect_rect  (rl,  r2,  rint) 

Input:  Rect  *rl,  *r2  the  given  two  rectangle. 

Output:  Rect  *rint  the  returned  rectangle  of  intersection. 

b.  Test  intersection  of  rectangles 

Function  which  determines  whether  the  two  input  rectangles  intersect. 
Bool  ret_val  =  insect_rect  (rl ,  r2) 

Input:  Rect  *rl,  *r2  the  given  two  rectangle. 

Output:  Bool  ret_val  TRUE,  if  rl  and  r2  intersect.  FALSE,  if  not. 

c.  Test  equal  rectangles 
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rectangle. 

Bool 

Input: 

Output: 


State 

Input: 

Output: 


Function  which  determines  if  the  two  input  rectangles  are  the  same 

ret_val  =  equalrect  (rl,  r2) 

Rect  *rl,  *r2  the  given  two  rectangle. 

Bool  ret_val  TRUE,  if  rl  and  r2  are  the  same.  FALSE,  if  not. 

d.  Copy  rectangles 

Function  which  copies  the  source  rectangle  into  the  destination  rectangle, 
copypt  (source,  dest) 

Rect  *  source  the  given  source  rectangle. 

Rect  *dest  the  returned  destination  rectangle. 


3.  The  Point  and  Rectangle  Translation  Set 

A  rectangle  is  specified  by  two  points.  We  need  the  Point  and  the  Rectangle 
have  enough  operations  to  cover  the  information  exchange.  For  example,  type  transfer 
from  points  to  the  rectangle  or  from  the  rectangle  to  the  points. 

a.  Set  rectangle  by  points 

Function  which,  given  two  points,  determines  the  smallest  rectangle  that 
those  points  could  define  and  sets  the  top  left  and  bottom  right  points  of  the  output 
rectangle  to  correspond  to  that  rectangle. 

State  set_rect  (pi,  p2,  r) 

Input:  Point  *pl,  *p2  the  given  two  points. 

Output:  Rect  *r  the  returned  rectangle. 

b.  Get  the  top  left  point  from  rectangle 

Function  which  returns  the  top  left  point  of  the  input  rectangle. 

State  set_topLeft  (r,  p) 

Input:  Rect  *r  the  given  rectangle. 

Output:  Point  *p  the  returned  top  left  point. 

c.  Get  the  bottom  right  point  from  rectangle 

Function  which  returns  the  bottom  right  point  of  the  input  rectangle. 

State  set_botRight  (r,  p) 

Input:  Rect  *r  the  given  rectangle. 

Output:  Point  *p  the  returned  bottom  right  point. 

d.  T«»st  point  in  rectangl<> 

Function  which  determines  if  the  input  point  is  within  or  on  the  border  of 
the  input  rectangle. 
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Bool 

ret_val 

=  pt_in_rect  (p,  r) 

Input: 

Point 

*p  the  given  point. 

Rect 

*r  the  given  rectangle. 

Output: 

Bool 

ret_val  TRUE,  if  point  p  in  rectangle  r.  FALSE,  if  not. 

C.  Design  of  the  Event  Library 

Whenever  the  user  presses  the  mouse  button,  or  types  on  the  keyboard,  the 
application  program  is  notified  by  means  of  an  event.  In  the  Abstract  Specification,  all 
events  represent  the  user's  actions.  Not  only  the  user  can  generate  an  event,  also  the  event 
can  generate  another  event.  For  instance,  when  the  user  drags  a  window  away,  the 
uncovered  original  region  may  need  to  be  updated,  and  a  redraw  event  is  issued  by  the 
program.  In  Macintosh,  more  complicated  events  are  also  provided  like  disk-inserted 
event,  network  event,  and  device  driver  event,  but  there  are  only  fundamental  events  in 
GEM.  There  are  eight  events  that  are  summarized  for  the  event  function  to  meet  the  basic 
interface  requirement.  Two  other  mouse  functions  which  relate  to  events  are  also  included 
in  the  Event  Library. 

1.  Get  event  function 

Function  which  senses  user  interaction  with  the  program,  determines  the  type  of 
interaction,  and  reports  the  user  interaction  to  the  program  via  the  message  globe  data  item. 
At  present  there  are  eight  different  types  of  events  which  are  reported  to  the  program: 

a.  Activate  event 

A  notification  that  the  user  pressed  the  mouse  button  while  the  cursor  was 
over  an  inactive  window  (requesting)  to  make  that  window  active,  and  the  application  has 
to  reorder  the  windows. 

b.  Redraw  event 

A  notification  that  the  work  area  of  one  of  the  windows  present  on  the 
screen  has  been  disturbed  or  exposed  and  must  be  rewritten. 

c.  Close  window  event 

A  notification  that  the  user  has  pressed  the  mouse  in  the  close  box  of  the 
active  window  (if  present). 

d.  Mouse  down  event 

A  notification  that  the  user  has  pressed  the  mouse  button  in  the  working 
area  of  the  active  window. 

e.  Keyboard  event 

A  notification  that  the  user  has  typed  the  keyboard. 
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f.  Mouse  up  event 

A  notification  that  the  user  has  released  the  mouse. 

g.  Menu  selection  event 

A  notification  that  the  user  has  selected  a  menu  item. 

h.  Scroll  bar  event 

A  notification  that  the  user  has  pressed  the  mouse  in  some  part  of  the 

scroll  bar. 

Two  functions  are  taken  care  of  automatically  by  this  routine  :  changing  the  size 
of  a  window  in  response  to  the  user  dragging  in  the  window's  grow  box  and  moving  a 
window  in  response  to  a  user  dragging  in  the  title  bar  of  the  window. 

State  get_event  () 

Input:  none. 

Output:  1 1  messages,  in  the  following,  are  declared  in  "ASBIND1.H"  file. 

•  EVTTYPE:  always  has  a  value  to  represent  an  event.  There  are  8  kinds  of 
events  that  their  program  codes  are  shown  below.  The  coming  event  always  appends  some 
relative  and  useful  information,  also  shown  behind  the  event,  which  can  tell  the 
programmer  more  details  about  the  event. 

-  REDRAW  with  EVTWINDOW,  EVTRECT. 

-  TOPPED  with  EVTWINDOW,  ENTPOINT,  EVTMOD. 

-  CLOSEWIN  with  none. 

-  SCROLLBAR  with  EVTSCRPART,  EVTSCRMOVE,  EVTSCRPOSN. 

-  MOUSEDOWN  with  EVTWINDOW,  EVTPOINT,  EVTMOD. 

-  KEYBOARD  with  EVTKEY,  EVTMOD. 

-  MOUSEUP  with  EVTWINDOW,  EVTPOINT,  EVTMOD. 

-  MENUHIT  with  EVTMTTTLE,  EVTMITEM. 

•  EVTWINDOW:  the  returned  window  ID. 

•  EVTRECT:  the  rectangular  area  that  needs  redrawn. 

•  EVTPOINT:  the  cursor  position  when  the  event  happened. 

•  EVTSCRPART:  the  scroll  bar  position  report  which  the  possible  value  is 

V_PAGEUP,  VJPAGEDOWN,  V_ROWUP,  V_ROWDOWN, 

H.PAGEUP,  H_PAGEDOWN,  H_ROWUP,  H_ROWDOWN, 
V_THUMB,  H_THUMB. 

•  EVTSCRPOSN:  line  scroll  bar  current  setting.  The  minimam  value  of  any 

scroll  bar  is  zero,  and  the  maximam  one  is  1000. 


•  EVTSCRMOVE:  the  difference  that  current  setting  minus  the  old  one. 

•  EVTKEY :  the  input  ASCII  code. 

•  EVTMOD:  the  states  of  the  modifier  keys. 

•  EVTMTTTLE:  the  selected  menu  title. 

•  EVTMTTEM:  the  selected  menu  item. 

2.  Get  mouse  location 

This  function  gets  the  current  mouse  position  and  outputs  it  in  the  local 
coordinate  system  of  the  specified  window. 

State  get_mouse(Id,  pt) 

Input:  Int  Id  the  given  window  ID. 

Output  Point  *pt  the  returned  point  of  the  mouse  position. 

3.  Test  mouse  button 

This  is  the  function  we  use  to  get  the  state  of  the  mouse  up  or  down.  It's  useful 
when  the  user  presses  and  moves  the  mouse  as  an  action. 

Bool  ret_val  =  mouse_up() 

Input:  none. 

Output:  Bool  ret_val  FALSE,  if  mouse  button  is  pressed. 

TRUE,  if  not. 

E,  Design  of  the  Window  Library 
1.  The  Structure  of  Window 

In  the  Abstract  Specification,  all  objects  (points,  rectangles,  etc)  are  defined  in 
relation  to  the  window  which  happens  to  be  active  at  the  time.  The  window,  as  an  object 
consists  of  two  basic  regions,  a  structure  region  and  a  content  region.  The  structure  region 
contains  the  following  objects  (see  Figure  7  about  window  structure): 

a.  Title  bar 

Bar  at  the  top  of  the  window  containing  the  window's  title. 

b.  Move  area 

Lined  area  of  the  title  bar  which  can  be  clicked  in  to  move  the  window. 
Normally  the  move  area  is  the  same  as  the  title  bar  area 

c.  Close  box 

White  rectangle  which  when  clicked  in,  signals  that  the  user  desires  to 
close  the  window. 

d.  Scroll  bar: 


Bars  on  the  right  and  bottom  of  the  window,  used  to  signal  the  user's 
desire  to  move  the  window's  contents  up,  down  or  side  to  side. 

e.  Grow  box: 

Area  at  bottom  right  of  window,  which  when  clicked  and  dragged  around, 
changes  the  size  of  the  window. 


Close  Box 


Figure  8  An  active  window 

The  remaining  portion  in  the  center  of  the  window  is  the  content  region.  This 
region  can  be  thought  of  as  an  independent  screen  with  its  own  local  coordinate  system 
whose  origin  (0,0)  is  at  the  top  left  corner  of  the  content  region.  The  basic  system 
window,  the  desktop,  is  slightly  different,  having  only  a  menu  bar  area  at  the  top  and  then 
its  content  region.  At  any  one  time,  there  is  a  window  which  is  "on  top"  of  the  screen. 
This  window  is  the  active  window.  All  drawing  activities  take  place  in  the  active  window 
except  in  the  case  of  an  update,  in  which  case  it  takes  place  in  the  window  specified. 

All  windows  once  allocated  are  managed  by  the  window  ID  number  which  is 
assigned  at  the  time  of  creation.  To  prevent  out  of  memory  errors,  the  maximum  number 
of  available  windows  is  eight  In  general,  the  programmer  has  to  keep  the  ID  information 
while  manipulating  multiple  windows. 
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2.  The  Window  Function  Set 

All  functions  used  to  manipulate  windows  and  other  relative  objects,  can  be 
divided  into  six  parts. 

a.  Window  Manipulation 

There  are  several  basic  functions  here  to  manipulate  windows  as  a  whole 

entity. 

i.  Create  a  new  window 

Function  which  allocates  space  for  a  new  window  and  displays  it  as 
the  active  window.  The  programmer  can  create  new  windows  with  different  optional 
properties  such  as  vertical  and  horizontal  scroll  bars,  close  box,  grow  box,  etc. 

Window_id  ret_val  =  set_new_window  (InitRect,  Partspec,  Title,  is_Visible) 
Input:  Rect  *InitRect  a  rectangle,  given  in  global  coordinates,  determines 

the  window's  size  and  location. 

Bitl6  Partspec  specifies  which  optional  parts  of  the  window  are  to 
be  included  (see  below). 

Parts  (optional):  defined  in  "ASBIND1.H"  file. 

W_NAME  include  a  title  bar, 

W_CLOSE  include  a  close  box; 

W_SIZE  include  a  size  box; 

W_HSCROLL  include  a  horizontal  scroll  bar, 
WJVSCROLL  include  a  vertical  scroll  bar. 

(To  include  more  than  one  option,  pass  a  bitwise  OR  of  any  combination  of  above) 
Char  Title  address  of  string  to  be  used  as  a  title  for  the 

window. 

Bool  is_Visible  TRUE,  if  the  window  is  to  be  displayed; 

FALSE,  if  not. 

Output:  Window_id  ret_val  the  identifier  of  the  new  window. 

ii.  Show  window 

Function  which  draws  an  invisible  but  previously  defined  window 
onto  the  screen.  This  window  becomes  the  active  window. 

State  show_window  (Id) 

Input:  Window_id  Id  the  given  window  identifier. 

Output  none. 

iii.  Hide  window 


Function  which  removes  the  specified  window  from  the  screen 
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without  deallocating  it. 

State  hide_window  (Id) 

Input:  Window_id  Id  the  given  window  identifier. 

Output  none. 

iv.  Activate  window 

Function  which  causes  the  specified  window  to  become  the  active 
window.  It  causes  any  window  (but  the  desktop  with  a  ID  number  of  0)  to  be  moved  to  the 
top  and  a  new  background  will  be  drawn  in,  however,  the  contents  will  not  be 
automatically  redrawn. 

State  activate_win  (Id) 

Input:  Window_id  Id  the  given  window  identifier. 

Output  none. 

v.  Close  window 

Function  which  closes  and  permanently  deallocates  the  specified 

window. 

State  close_window  (Id) 

Input:  Window_id  Id  the  given  window  identifier. 

Output  none. 

vi.  Update  window 

Function  which  sets  the  system  into  the  update  window  mode, 
drawing  will  be  limited  to  the  visible  region  of  the  window  to  be  updated  (as  identified  by 
the  ID  number  input)  to  the  function.  When  given  a  rectangular  area  to  update,  the  function 
will  return  the  intersection  between  that  area  and  one  of  the  rectangles  which  define  the 
visible  area  of  the  wondow  to  be  updated.  In  the  Macintosh,  the  update  event  happens 
window  by  window  (in  front  to  back  order).  In  GEM,  when  a  REDRAW  event  is  issued, 
a  rectangle  list,  divided  from  the  screen  and  window,  is  built  for  the  program  to  update. 
Thus,  the  programmer  always  needs  to  pass  the  EVTRECT  to  this  function. 


Bool 

rec_val  =  update 

_win  (ID,  Up_rct,  Dr_rct) 

Input 

Window_id 

ID 

the  ID  of  the  window  that  will  be  updated. 

Rect 

*Up_rct 

the  rectangle  to  be  updated. 

Output: 

Rect 

*Dr_rect 

the  intersection  of  update  rectangle  and 
visible  region. 

Bool 

retjval 

TRUE,  if  need  updat.  FALSE,  if  not. 
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vii.  Update  next  window 

To  solve  the  update  problem  of  GEM  and  Macintosh,  this  function 
moderates  the  conceptual  difference  between  two  computers  and  completes  the  update 
mission  without  having  much  redundant  work.  In  Macintosh,  this  function  does  nothing 
and  always  returns  false.  But,  it  is  still  useful  for  GEM. 

Bool  rec_val  =  next_update  (Up_rct,  Dr_rct) 

Input  Rect  *Up_rct  the  rectangle  to  be  updated. 

Output;  Rect  *Dr_rect  the  intersection  of  update  rectangle  and  visible 

region. 

Bool  ret_val  TRUE,  if  next  update  is  necessary; 

FALSE,  if  not. 

viii.  End  updating  window 

Function  to  ends  the  update  mode  and  restore  the  clip  area  to  match 
the  active  (topmost)  window.  The  programmer  always  has  to  call  update_win()  when 
receiving  a  REDRAW  event,  and  call  end_update()  at  the  end  of  update. 

State  end_update  () 

Input:  none. 

Output:  none. 

ix.  Find  active  window 

Function  which  shows  the  identifier  of  the  active  window. 
Window_id  ret_val  =  get_active() 

Input:  none. 

Output  Window_id  ret_val  the  returned  window  ID. 

b.  Scroll  Bar  Manipulation 

In  fact,  scroll  bar  is  part  of  control  facilities  of  a  window  to  adjust  the 
viewing  position  of  the  document  of  the  window.  The  scroll  bar  is  divided  into  Five  parts 
to  perform  different  functions.  The  up  and  down  arrows  scroll  the  window's  content  a  line 
at  a  time.  The  paging  up  and  down  regions  scroll  a  page  at  a  time.  The  thumb  can  be 
dragged  to  any  position  in  the  scroll  bar,  to  scroll  to  a  corresponding  position  within  the 
document  (see  Figure  9)  [Ref.  2].  Six  functions  are  shown  below. 


Figure  9  Parts  of  a  scroll  bar 

i.  Horizontal  content  scrolling 

Function  which  scrolls  the  content  area  of  the  active  window  by  the 
specified  number  of  pixels.  If  the  number  is  positive,  the  region  will  move  to  the  left,  and 
to  the  right  if  negative.  The  returned  rectangle,  which  was  previously  covered,  will  show 
up  now  and  should  be  passed  for  update. 

State  hscroll  (num,  Up_rect) 

Input:  Int  num  the  pixel  number  to  scroll 

Output  Rect  *Up_rect  return  the  rectangle  which  will  be  updated 

ii.  Vertical  content  scrolling 

Function  which  scrolls  the  content  area  of  the  active  window  by  the 
specified  number  of  pixels.  If  the  number  is  positive,  the  region  will  move  up,  and  down 
if  negative.  The  returned  rectangle,  which  was  previously  covered,  will  show  up  now  and 
should  be  passed  for  update. 

State  vscroll  (num,  Up_rect) 

Input:  Int  num  the  pixel  number  to  scroll 

Output  Rect  *Up_rect  return  the  rectangle  which  will  be  updated 

iii.  Set  horizontal  scroll  bar  value 

Function  which  sets  the  value  of  the  horizontal  scroll  bar  of  the 


active  window. 
State 
Input: 
Output: 


set_hscroll  (val) 
Int  val 
none. 


new  horizontal  scroll  bar  setting. 
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iv.  Set  vertical  scroll  bar  value 

Function  which  sets  the  value  of  the  vertical  scroll  bar  of  the  active 


window. 

State 

Input: 

Output: 


new  vertical  scroll  bar  setting. 


setjvscroll  (val) 

Int  val 
none. 

v.  Get  horizontal  scroll  bar  value 

Function  which  returns  the  horizontal  scroll  bar  value. 

Int  retjval  =  get_hscroll  () 

Input:  none. 

Output:  Int  ret_val  the  returned  horizontal  scroll  bar  value. 

vi.  Get  horizontal  scroll  bar  value 

Function  which  returns  the  horizontal  scroll  bar  value. 

Int  retjval  =  get_vscroll  () 

Input:  none. 

Output:  Int  ret_val  the  returned  vertical  scroll  bar  value, 

c.  Drawing  Background  Manipulation 

Abstraction  Specification  of  graphic  objects  has  three  different  kinds  of 
characteristic:  background  pattern,  mode,  and  color.  Pattern  includes  black,  dark  gray, 
gray,  light  gray,  and  white.  Mode  includes  replace,  transparent,  xor,  and  reverse 
transparent.  Color  includes  light  and  dark  which  both  include  white,  black,  red,  green, 
blue,  cyan,  yellow,  and  magenta. 

i.  Set  pattern 

Function  which  sets  the  pattern  to  be  used  to  draw  and  fill  in  shape. 


the  given  pattern  ID. 


State 

set_pattem  (newpattem) 

Input: 

Patterned  newpattem 

Output: 

none. 

« 

ii.  Set  mode 

Function  which  sets  tl 

State 

set_xfer_mode  (newmode) 

Input: 

Pattemjd  newmode 

« 

Output: 

none. 

iii.  Set  color 

the  given  transfer  mode  ID. 


Function  which  sets  the  global  color  for  drawing. 
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State  set_color  (newcolor) 

Input:  Color_id  newcolor  the  given  color  ID. 

Output:  none. 

iv.  Get  pattern 

Function  which  retuens  the  identifier  of  the  drawing  pattern. 

Pattern  Jd  ret_val  =  get_pattem  () 

Input:  none. 

Output:  Pattem_id  ret_val  the  returned  pattern  ID. 

v.  Get  mode 

Function  which  retuens  the  identifier  of  the  drawing  transfer  mode. 
Mode_id  ret_val  =  get_xfer_mode  () 

Input:  none. 

Output:  Mode_id  ret_val  the  returned  transfer  mode  ID. 

vi.  Get  color 

Function  which  retuens  the  identifier  of  the  drawing  color. 

Colorjd  ret_val  =  get_color  () 

Input:  none. 

Output:  Colorjd  ret_val  the  returned  color  ID. 

d.  Drawing  Object  Manipulation 

Drawing  functions  are  the  most  important  part  of  the  Abstract 
Specification.  The  reason  we  put  this  function  in  the  Window  Library  is  all  object  drawing 
routines  happen  in  a  window.  All  of  the  drawing  happens  in  the  active  window  with  the 
current  setting  of  pen  mode,  pen  pattern,  and  color.  The  coordinates  of  the  input  point  or 
rectangle  are  assumed  to  be  relative  to  the  top  left  comer  of  the  active  window's  work  area. 
There  are  five  kinds  of  object  supported  in  the  Abstract  Specification  :  line,  rectangle, 
ellipse,  arc  and  round  rectangle. 

i.  Draw  a  line 

Function  which  draws  a  line  in  the  currently  active  window. 

State  drawline  (St_pt,  End_pt) 

Input:  Point  *St_pt  the  starting  point. 

Point  *End_pt  the  ending  point 

Output:  none. 


ii.  Draw  a  rectangle 


Function  which  draws  the  outline  of  a  rectangle  in  the  active 

window. 

State  drawrect  (Inject) 

Input:  Rect  *In_rect  the  given  rectangle. 

Output  none. 

iii.  Draw  an  ellipse 

Function  which  draws  the  outline  of  an  ellipse  within  the  specified 
rectangular  area  of  the  active  window. 

State  drawellipse  (Inject) 

Input:  Rect  *Inject  the  given  rectangle. 

Output:  none. 

iv.  Draw  an  arc 

Function  which  draws  the  outline  of  an  elliptical  arc  between  the  two 
input  angles  within  the  specified  rectangular  area  of  the  active  window. 


State 

drawarc  (R,  begang,  endang) 

Input: 

Rect 

*R 

the  given  rectangle. 

Int 

begang 

the  starting  angle. 

Output: 

Int 

none. 

endang 

the  ending  angle. 

v.  Draw  a  round  rectangle 

Function  which  draws  the  outline  of  an  round  rectangle  within  the 
specified  rectangular  area  of  the  active  window. 

State  drawTndrct  (Inject) 

Input:  Rect  *Inject  the  given  rectangle. 

Output:  none. 

vi.  Fill  a  rectangle 

Function  which  fills  the  outline  of  a  rectangle  in  the  active  window. 
State  fillrect  (Inject) 

Input:  Rect  *  Inject  the  given  rectangle. 

Output:  none. 

vii.  Fill  an  ellipse 

Function  which  fills  the  outline  of  an  ellipse  within  the  specified 
rectangular  area  of  the  active  window. 

State  fillellipse  (Inject) 


*In_rect  the  given  rectangle. 


Input:  Rect 

Output:  none. 

viii.  Fill  an  arc 

Function  which  fills  the  outline  of  an  elliptical  arc  between  the  two 
input  angles  within  the  specified  rectangular  area  of  the  active  window. 

State  fillarc  (R,  begang,  endang) 

Input:  Rect  *R  the  given  rectangle. 

Int  begang  the  starting  angle. 

Int  endang  the  ending  angle. 

Output:  none. 

ix.  Fill  a  round  rectangle 

Function  which  fills  the  outline  of  an  round  rectangle  within  the 
specified  rectangular  area  of  the  active  window. 

State  fillmdrct  (In_rect) 

Input:  Rect  *In_rect  the  given  rectangle. 

Output:  none. 

e.  Text  Manipulation 

In  the  Abstract  Specification,  only  a  few  functions  are  available  for  the 
basic  manipulation  of  text. 

i.  Set  text  pen  position 

Function  which  sets  the  location  of  the  next  character  to  be  drawn  in 
the  active  window  (location  of  text  pen  in  window  local  coordinates). 

State  txtpen  (inpt) 

Input:  Point  *inpt  the  given  text  location. 

Output:  none. 

ii.  Get  text  pen  position 

Function  which  returns  the  location  of  the  text  pen  for  the  currently 
active  window  (in  window  local  coordinates). 

State  set_txtpen  (pen) 

Input:  none. 

Output:  Point  *pen  the  returned  text  location. 

iii.  Write  string 

Function  which  draws  a  string  into  the  active  window  at  the  current 

location  of  its  text  pen. 
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State  drawstring  (strptr) 

Input:  Char  *strptr  the  string  which  will  be  drawn. 

Output:  none. 

iv.  Write  character 

Function  which  draws  a  character  at  the  current  location  of  the  active 

window's  text  pen. 

State  drawstring  (inchr) 

Input:  Char  inchr  the  character  which  will  be  drawn. 

Output:  none. 

v.  Get  character  width 

Functions  return  the  current  character  width. 

Int  ret_val  =  get_wchar  () 

Input:  none. 

Output  Int  ret_val  the  character  width. 

vi.  Get  character  height 

Functions  return  the  current  character  height. 

Int  ret_val  =  get_hchar  () 

Input:  none. 

Output  Int  ret_val  the  character  height 

f.  System  Manipulation 

The  programmer  needs  to  call  sys_init()  and  sys_end(),  which  will  be 
described  below,  at  the  beginning  and  end  of  the  program  respectively. 

i.  System  initialization 

Function  to  initialize  the  system  to  run  the  Abstract  Specification 

Interface. 

State  sys_init  () 

Input:  none. 

Output:  none. 

ii.  Exit  application  program 

Function  which  returns  all  allocated  resources  to  the  system  at  the 

end  of  the  program. 

State  sys_end  () 

Input:  none. 

Output:  none. 
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E.  Design  of  the  Menu  Library 

Menu  selection  is  a  method  used  to  issue  a  command  to  the  application  program. 
This  is  one  of  the  most  important  and  user-friendly  characteristics  of  the  common 
interface,  the  user  just  moves  and  clicks  the  mouse  around  the  screen  to  control  the 
application  program  without  typing  the  keyboard.  GEM  menus  are  known  as  drop-down 
menus  because  when  the  user  moves  the  mouse  over  the  menu  bar,  the  GEM  Screen 
Manager  drops  the  entire  menu  down  onto  the  screen.  In  contrast,  the  Macintosh  uses 
pull-down  menus,  which  work  by  having  the  user  click  on  the  desired  menu  title,  and, 
holding  the  button  down,  move  through  the  menu  highlighting  each  pointed-at  item.  By 
releasing  the  button  the  user  selects  the  last  highlighted  item.  Thus,  on  the  Macintosh,  the 
menu  is  displayed  as  long  as  the  button  remains  depressed,  whereas  GEM  menus  are 
visible  until  the  user  moves  the  mouse  out  of  the  menu,  either  into  another  menu  or  to 
another  part  of  a  screen.  GEM  menus  are  also  different  in  that  the  mouse  button  is  used  to 
select  a  menu  item.  As  shown  in  Figure  10,  the  application  highlights  the  title  and 
displays  the  menu  items  [Ref.  2,  p.  1-52], 


dimmed  command 


checked  command 


Figure  10  Menu 

The  GEM  Menu  Library  only  provides  the  fundamental  functions  required,  but  the 
Macintosh  Menu  Manager  includes  the  complete  works  of  the  menu  functions.  To  collect 
the  necessary  set,  there  are  five  basic  menu  routines  that  are  chosen  for  performing  menu 
functions. 

L  Menu  bar  initialization 

This  function  always  has  to  be  called  by  the  programmer  at  the  beginning  of  the 
application  to  show  the  menu  bar.  Here  we  need  the  resource  file  name  prepared  in 
advance.  So  before  passing  the  resource  file  name  to  this  function,  the  programmer  must 
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utilizes  the  respective  resource  maker  utility  program  supported  from  DR1  and  Apple 
Computer,  Inc.,  to  edit  the  menu  resource  for  the  application  program* . 

State  init_menu  (filename,  barid) 

Input:  char  *filename  the  resource  file  name 

Menu_id  barid  the  menu  ID  specified  by  resource  utility. 

Output:  none. 

2.  Menu  item  enable 

To  make  sure  the  user  can  issue  the  proper  commands,  the  application  program 
may  only  allow  certain  commands  to  be  selectable.  This  function  corresponds  to  the  menu 
item  disable  which  will  be  mentioned  next 

State  item_enble  (menunum,  itemnum) 

Input:  Int  menunum  the  menu  title  number 

lnt  itemnum  the  menu  item  number 

Output:  none. 

3.  Menu  item  disable 

In  some  specified  situation,  some  unacceptable  or  unnecessary  commands  must 
be  disabled.  A  disabled  item  cannot  be  chosen;  it  appears  dimmed  in  the  menu  and  is  not 
highlighted  when  the  cursor  moves  over  it.  You  can  change  the  enabled  or  disabled  state  of 
a  menu  item  with  this  and  the  last  function. 

State  item_.disable  (menunum,  itemnum) 

Input:  Int  menunum  the  menu  title  number 

Int  itemnum  the  menu  item  number 

Output:  none. 

4.  Set  menu  item  check  mark 

The  programmer  can  place  a  check  mark  to  the  left  of  the  text  of  the  menu  item.  This 
action  can  clearly  tell  the  user  which  command  is  working  or  what  state  is  presenting.  With 
this  function,  the  programmer  can  set  or  clear  the  check  mark. 

State  item__mark  (menunum,  itemnum,  mark) 

Input:  Int  menunum  the  menu  title  number 

Int  itemnum  the  menu  item  number 


*  There  are  several  utilities  available,  include  RMaker,  ResTool,  and  ResEdit,  for  the  Macintosh  computer. 
Also,  GEM  has  the  Resource  Construction  Set  supported  by  DR1  for  the  same  purpose. 


Bool 


mark 
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if  TRUE,  then  a  check  mark  will  appear  each 
subsequent  time  the  menu  is  pulled  down.  If 
FALSE,  then  remove  the  check  mark  from 
the  menu  item. 

Output;  none. 

5.  Menu  title  highlighting 

When  an  item  is  selected,  the  menu  title  in  the  menu  bar  remains  highlighted 
until  the  command  has  completed  execution.  So  after  the  menu  is  selected,  the  application 
should  perform  the  chosen  task  and  then  call  this  function  to  unhighlight  the  chosen  menu 
title.  The  programmer  can  also  use  this  function  to  highlight  the  menu  title.  Since  only  one 
menu  title  can  be  highlighted  at  a  time,  it  unhighlights  any  previously  highlighted  menu 
title. 

State  menu_hilight  (menunum,  hilight) 

Input:  Int  menunum  the  menu  title  number 

Bool  hilight  if  TRUE,  then  hilight  the  title  of  given  menu. 

If  FALSE,  unhilight  the  chosen  menu  title. 


Output:  none. 


VI.  IMPLEMENTATION 


In  this  section  we  will  discuss  some  details  of  implementing  the  common  interface 
and  the  testing  of  a  demonstration  program.  This  mini  interface  actually  provided  only 
basic  functions  for  building  an  application  program.  To  fully  utilize  the  available  functions, 
we  have  to  introduce  all  the  other  necessary  features  and  properties  of  the  programming 
environment.  First,  we  will  examine  the  designing  of  the  data  structures,  then  all  the 
functional  abilities  of  these  libraries.  In  the  view  of  a  design  task,  the  design  of  the  data 
structures  should  be  put  last .  But  the  whole  design  is  actually  digested  in  the  GEM  and 
Macintosh  programming  environments  to  get  a  feasible  intersection.  So,  here  we  just  use 
the  data  structure  to  establish  the  direction  of  the  implementation  work. 

There  are  several  special  data  structures  and  defined  constant  data  which  were 
designed  for  the  Event  and  Window  Library  to  be  utilized  by  the  programmer.  The 
following  descriptions  show  some  detail  notes  about  the  Abstract  Specification  of 
implementation: 

•  The  window  type  and  limitation 

— The  maximum  number  that  an  application  can  open  at  a  time  is  limited  under 
seven  to  prevent  out  of  memory.  Because  we  have  to  control  our  own  window 
by  the  data  structure  which  summarized  from  the  GEM  and  Macintosh,  and 
specify  the  number  of  windows  during  the  compile  time. 

— Every  window  has  its  own  identifier  instead  of  a  window  pointer  to  its  location. 

— The  scroll  bar  is  regarded  as  part  of  the  window  structure.  The  thumb  value  is 
between  zero  and  1000. 

— The  Desktop  on  the  screen  has  the  window  identifier  value  zero.  When  an 
invalid  window  happens  in  any  function  its  identifier  value  is  -1. 

— A  newly  created  window  has  options  to  include  title,  close  box,  grow  box,  the 
horizontal  and/or  vertical  scroll  bar. 

•  The  event  structure 

— the  notification  of  of  a  event  is  always  accompanied  by  different  information 
which  depends  on  the  event.  A  keyboard  event  comes  with  the  key  stroke  and 
the  state  of  the  modifier  keys.  Menu  selection  events  come  with  the  selected 
menu  title  and  item.  Redraw  event  comes  with  the  window  and  rectangle  which 
needs  redrawn.  Mouse  down  event  comes  with  the  mouse  down  window, 


cursor  point,  and  the  state  of  modifier  keys.  Update,  close  window  event  comes 
with  the  window  where  the  event  happened.  Scroll  bar  event  comes  with  the 
specified  part  of  scroll  bar,  and  the  new  thumb  position. 

— all  events  are  enqueued  into  an  internal  first  in  first  out  data  structure. 

— all  windows  can  always  be  dragged  or  sized,  but  the  actions  might  generate 
redraw  events  depending  on  whether  the  hidden  parts  of  inactive  window 
appear. 

The  graphic  object  structure 

— the  graphic  objects  can  be  line,  rectangle,  ellipse,  arc  and  round  rectangle. 
Except  line  object,  the  other  objects  can  be  drawn  either  outline  only  or  with 
pattern  in. 

— the  background  of  all  objects  include  color,  pattern,  and  mode  that  they  all  can  be 
represented  by  the  specified  identifier  value. 

The  basic  structure  of  a  standard  program 

— the  DEMO  program  shown  in  appendix  has  a  basic  structure  and  it  can  be  a  good 
reference  for  the  programmer.  Normally,  the  programmer  takes  responsibility  of 
the  content  of  the  include  file  and  resource  file  for  the  apllication. 

— the  programmer  should  always  include  the  "ASBIND.H"  and  "ASFBIND.H" 
files.  The  ASBIND.H  comprises  the  binding  data  type  of  Abstract  Specification, 
the  ASFBIND.H  includes  all  the  binding  functions  call  of  Abstract  Specification. 

--the  following  flow  chart  shows  the  basic  style  of  an  application. 


Figure  11  The  Basic  Structure  of  an  Application  Program 


For  the  purpose  of  understanding  how  this  Abstract  Specification  of  the  common 
interface  will  work,  there  is  a  demo  program  in  appendix  illustrating  the  basic  graphic 
application  and  how  those  functions  can  be  applied  by  the  user. 
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VII.  CONCLUSION  AND  RECOMMENDATION 

In  the  beginning  of  this  paper  we  mentioned  that  the  purpose  of  this  common 
interface  is  to  make  the  same  source  code  run  on  an  IBM  PC  under  the  GEM  environment 
and  the  Apple  Macintosh  with  the  same  effect.  This  idea  could  be  used  to  improve  the 
portability  of  many  applications  since  the  application  could  be  separated  into  system 
dependent  and  system  independent  (common  interface)  routines.  We  have  achieved  this 
purpose  since  the  source  code  that  uses  the  common  interface  of  either  system  is 
independent.  When  the  programmer  want  to  run  the  same  result  on  other  different 
machines,  he  can  just  rewrite  the  system  dependent  part.  In  this  thesis,  we  just  prove  that 
it  is  possible  to  support  the  common  interface  (system  dependent  pan)  to  the  programmer 
and  save  duplicated  works.  Clearly  only  one  drawing  demo  program  cannot  prove  that  the 
common  interface  will  work  correctly  when  further  used  in  other  more  sophisticated 
application  program,  but  it  does  prove  the  feasibility  of  the  idea.  Of  course,  in  the 
intersection  of  the  GEM  and  Macintosh  we  lose  some  of  their  origional  powerful  abilities, 
but  if  the  system  dependent  part  of  an  application  can  expand  and  provide  other  functions, 
then  the  concept  of  the  common  interface  could  be  an  important  idea. 

For  further  study,  we  recommend  that  this  idea  be  examined  on  other  systems.  For 
example,  can  the  same  abstract  design  be  implemented  on  top  of  X-Windows  on  Unix,  or 
MS  Windows  on  MS-DOS?  Such  an  effort  would  lead  to  a  better  understanding  of  this 
type  of  interface. 
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APPENDIX  A 


Demo  program  listing 


/* - - - - */ 

/*  DEMO.C  */ 

/* . . . */ 


#include 

"asbind.h" 

#include 

"asfbind.h" 

#include 

"demo.h" 

#define 

SINGSCR 

20 

#define 

PAGES 

4 

#define 

COLPAGE 

20 

#define 

NUMDR 

100 

char  *Title[MAXNUMWIN]  = 

"DrawWindowl", 
"DrawWindow2", 
"DrawWindow3", 
"DrawWindow4", 
"DrawWindow5  " , 
"DrawWindow6", 
"Draw  Window7  " , 

end; 

typedef  struct 

drstr 

begin 

Rect 

drrct; 

Colorjd 

drcol; 

Mode_id 

drmo; 

Pattem_id 

drpat; 

int 

drshp; 

Boo! 

drfill; 

end  drstr; 

typedef  struct 

winstr 

begin 

Window_id 

winid; 

drstr 

Drawn[NUMDR]; 

Int 

drawcnt; 

Color_id 

wincol; 

Mode_id 

winmode; 

Pattem_id 

winpat; 

Bool 

doline; 

Bool 

dofill; 

Bool 

dodark; 

Int 

selPat; 

Int 

selCol; 

Int 

selMod; 

Int 

Shape; 

Bool 

Created; 

Bool 

winstr; 

Visible; 

Point 

Tl.Br, 

Rect 

winrect; 

winstr 

WinlistfMAXNUMWINl; 

Int 

Lastaeuvc, 

/* - -  --*/ 


Int 

Findindex(Id) 

Windowid  Id; 

begin 

Int  I; 

if  (Id  ==  DESK_WIN) 

retum(INV  ALID); 

fora  =  0;  ((I  <  MAXNUMWIN)  &&  (Winlist[I].winid  !=  Id));  I++); 
return  (I); 


end 

/* . - . */ 

/* . — . */ 

Void 

ResetMenus(oldind,Index) 

Int  oldind; 

Int  Index; 


begin 


if  (oldind  =  INVALID) 
oldind  =  Lastactive; 


f*  handle  drawing  menu  */ 

if  (Winlist[Index].dofill  !=  Winlist[oldind].dofill) 
begin 

if  (Winlist[oldind].dofill) 
begin 

item_mark(MNDRAW,rrOUTLN,TRUE); 
item_mark(MNDRAW,ITFILL, FALSE); 
end 
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begin 


item_mark(MNDRAW,ITOUTLN,FALSE); 
item_mark(MND  RAW, ITFILL, TRUE); 
end 


end 

item_mark(MND  RAW,  Winlist[oldind] .  Shape, FALSE); 
item_mark(MNDRAW,Winlist[Index]. Shape, TRUE); 

if  (WinIist[Index].doline  !=  Winlist[oldind].doline) 
begin 

if  (Winlist[oldind].doline) 
begin 

item_enable(MNDRAW  JTQUTLN); 
item_enable(MNDRAW, ITFILL); 
item_enable(MNDRAW,ITRECT); 
item_enable(MNDRAW,ITELLIP); 
item_enable(MNDRA  W  JT  ARC90); 
item_enable(MNDRAW,ITARCI  80); 
item_enab!e(MNDRA  W,ITARC270) ; 
item_enabIe(MiNT)RAW,rTRNDRCT); 
item_mark(MND  RAW, ITSHAPE, TRUE); 
item_mark(MNDRAW,rTLINE, FALSE); 

end 

else 

begin 

item_disable(MNDRAW  JTQUTLN); 
item_disable(MNDRAW,lTFlLL); 
item_disable(MNDRAW,rrRECQ; 
item_disable(MNDRAW,ITELLIP); 
item_disable(MNDRAW,ITARC90); 
item_disable(MNDRAW,ITARCl  80); 
item_disable(MNDRAW,ITARC270); 
item_disable(MNDRAW,rTRNDRCT); 
item_mark(MNDRAW,ITSHAPE,FALSE); 
item_mark(MND  RAW, ITLINE, TRUE); 
end 


end 


/*  handle  mode  menu  */ 

item_mark(MNMODE,Winlistloldind].selMod, FALSE); 
item_mark(MNMODE,Winlist[Index].selMod,TRUE); 

/*  handle  color  menu  */ 

if  (Winlist[Index].dodark  !=  Winlist[oldind].dodark) 
begin 


if  (Winlist[oldind].dodark) 


item_mark(MNCOLOR,ITLIGHT,TP  UE); 
item_mark(MN COLOR  JTDARK.FALS  E); 
end 

else 

begin 

item_mark(MNCOI  .OR.ITDAP.K  TRUE); 
item_mark(MN  COLOR, ITLIG  HT,F  ALSE) ; 
end 


end 

itetn_mark(MNCOLOR,Winlist[oldind].selCol,FALSE); 

item_mark(MNCOLOR,Winlist[Index].selCol,TRUE); 

itern_mark(MNPATTRN,Winlist[oldind].selPat,FALSE); 

item_mark(MNPATTRN,Winlist[Index].selPat,TRUE); 


end 


. . . */ 

(* . . . . */ 

DoScroll(part,newposn,amtmove) 

int  part.newposn.amtmove; 


begin 

int  numscr,oldh,oldv,newh,newv,pixperscr; 

Rect  uprect; 

Windowed  Active; 

Active  =  get_active(); 
numscr  =  1; 

pixperscr  =  (SINGSCR  *  PAGES  *  COLPAGE)  /  MAXSCR; 

switch  (part) 
begin 

case  H_P  AGEDOWN : 

numscr  =  COLPAGE; 

case  H_ROWDOWN: 
begin 

numscr  *=  SINGSCR; 
newh  =  numscr  /  pixperscr; 
oldh  =  get_hscroli(); 
newh  +=  oldh; 


if  (newh  >  MAXSCR) 


end 


newh  =  MAXSCR; 

numscr  =  (newh  -  oldh)  *  pixperscr; 


hscroll  (n  umscr,& uprect); 

set_hscroll(newh); 

DoUpdate(Active,&uprect); 


case  H.PAGEUP: 

numscr  =  COLPAGE; 

case  H_ROWUP: 
begin 

numscr  *=  (-  SINGSCR); 
newh  =  numscr  /  pixperscr; 
oldh  =  get_hscroll(); 
newh  +=  oldh; 

if  (newh  <  0) 
begin 

newh  -  C, 

numscr  =  (newh  -  oldh)  *  pixperscr; 
end 

hscroll(numscr,&uprect); 

set_hscroll(newh); 

DoUpdate(  Active, &uprect); 
break; 


case  V_PAGEDOWN : 

numscr  =  COLPAGE; 

case  VROWDOWN: 
begin 

numscr  *=  SINGSCR; 
newv  =  numscr  /  pixperscr; 
oldv  =  get_vscroll(); 
newv  +=  oldv; 

if  (newv  >  MAXSCR) 
begin 

newv  =  MAXSCR; 
numscr  =  (newv  -  oldv)  *  pixperscr; 
end 

vscroll(numscr,&uprect); 

set_vscroll(newv); 

DoUpdate(  Active, &uprect); 
break; 


case  V_PAGEUP: 

numscr  =  COLPAGE; 

case  V_ROWUP: 
begin 

numscr  *=  (-  SINGSCR); 
newv  =  numscr  /  pixperscr; 
oldv  -  get_vscrolI(); 
newv  +=  oldv; 

if  (newv  <  0) 
begin 

newv  =  0; 

numscr  =  (newv  -  oldv)  *  pixperscr; 
end 

vscroll(numscr,&uprect); 

set_vscro!l(newv); 

DoUpdate(Active,&uprect); 

break; 

end; 

case  H_THUMB: 
begin 

numscr  =  pixperscr  *  amtmove; 
hscroli  (numscr, &uprect); 
sethsCi  ollC  newposn) , 
DoUpdate(Active,&uprect); 
break; 

end; 

case  VTHUMB: 
begin 

numscr  =  pixperscr  *  amtmove; 
vscroll(numscr,&uprect); 
set_vscroll(ne  wposn) ; 
DoUpdate(Active,&uprect); 
break; 

end; 

default:  break; 

end 


*/ 
*/ 

DoUpdate(Id,uprect) 

Window_id  Id; 

Rect  *uprect; 


r 

/* 


begin 


Bool  Flag; 

Rect  Dummy; 

int  I; 

int  tmpshape; 

Bool  tmpdofill; 

hu  Winindex; 

Window_id  trnpActive; 


Winindex  =  Findindexfld); 

Flag  =  update_win(Id,uprect,&Dummy); 
tmpshape  =  Winlistf  Winindex].  Shape; 
tmpdofill  =  Win  list[W in  index]  .dofill; 

while  (Flag) 
begin 


I 


I 


I 


I 
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for(I  =  0;I  <  Winlist[Winindex].drawcnt;I++) 
begin 

Winlist[  Winindex]  .dofill  = 

Winlist[Wimndex].Drawn[I].drfill; 
Winlist[Winindex], Shape  = 

Winlist[Winindex].Drawn[I].drshp; 
set_xfer_mode(Winlist[Winindex].Drawn[I].drmo); 
set_pattem(Winlist[Winindex].Drawn[I].drpat); 
set_color(Winlist[Winindex]  .Drawn  [I]  .drcol); 
DrawShape(&(WinlistrWinindex].Drawn[I].drrct)); 
end 

Flag  =  next_update(uprect,&Dummy); 
end 

Winlist[Winindex]. dofill  =  tmpdofill; 

WinlistfWinindex]. Shape  =  tmpshape; 
set_xfer_mode(Winlist[Winindex].winmode); 
set_pattem(Winlist[Winindex].winpat); 
set_colorfWinlist[Winindex].wincol); 

end_update(); 


/*  - - -  */ 

/*  -  - - */ 

DrawShape(rct) 

Rect  *rct; 


begin 


Int  Index; 
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Window_id  Active; 


Active  =  get_active(); 

Index  =  Findindex(Active); 

if  (Winlist[Index].dofill) 
begin 

switch  (Winlist[Index], Shape) 
begin 


case  ITRECT: 
begin 

fillrcct(rct); 

break; 

end; 

case  ITELLIP: 
begin 

fillellipse(rct); 

break; 

end; 

case  ITARC90: 
begin 

fillarc(rct, 0,900); 
break; 

end; 

case  ITARC130: 
begin 

fillarc(rct,0,1800); 

break; 

end; 

case  ITARC270: 
begin 

fdlarc(rct, 0,2700); 
break; 

end; 

case  ITRNDRCT: 
begin 


fillmdrct(rct); 


r 


j 

i 

i 
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switch  (Winlist[Index], Shape) 
begin 


case  ITRECT: 
begin 

drawrect(rct); 

break; 

end; 

case  ITELLIP: 
begin 

drawellipse(rct); 

break; 

end; 

case  ITARC90: 
begin 

drawarc(rct, 0,900); 
break; 

end; 

case  ITARC180: 
begin 

drawarc(rct,0, 1 800); 
break; 

end; 

case  ITARC270: 
begin 

drawarc(rct,0,2700); 

break; 

end; 

case  ITRNDRCT: 
begin 

drawmdrct(rct); 

break; 

end; 

default:  break; 


end 


end 


end 


/* 

/* 

DoMouseDown(p  1  ,mod) 
Point  *pl; 


V 

*/ 


I 
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int  mod; 


begin 


Point 

Rect 

Color_id 

Mode_id 

Patterned 

Int 

Int 

Window_id 


p2,p3; 

tempr, 

tempcol; 

tempmode; 

temppat; 

Index; 

Drcnt; 

Active; 


Active  =  get_active(); 

Index  =  Findindex(Active); 

if  (!Winlist[Index].doline) 
begin 


copypt(*pl,&p2); 
tempmode  =  get_xfer_mode(); 
set_xfer_mode(XOR); 
tempcol  =  get_color(); 
set_color(LTB  LA  CK); 
temppat  =  get_pattem(); 
set_pattem(HATCH); 

set_rect(p  1  ,&p2,&tempr); 
drawrect(&tempr); 

while  (!mouse_up()) 
begin 

get_mouse(Winlist[Index].winid,&p3); 

if  (!equalpt(&p2,&p3)) 
begin 

drawrect(&tempr); 
set_rect(p  1  ,&p3  ,&tempr) ; 
drawrect(&tempr); 
copypt(p3,&p2); 
end 
end 

drawrect(&tempr); 

set_xfer_mode(tempmode); 

set_color(tempcol); 

set_pattem(temppat); 

if  (!equalpt(pl,&p2)) 
begin 

DrawS  hape(&tempr); 

Drcnt  =  Winlist[Index].drawcnt; 
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copyrect(tempr, 

&(Winlist[Index]  .Drawn[Drcnt]  .drrct)); 

Winlist[Index].Drawn[Drcnt].drfill  = 
Winlistflndex]  .dofill; 

Winlist[Index].Drawn[Drcnt].drshp  = 
Winlistflndex].  Shape; 

Winlist[Index].Drawn[Drcnt].drmo  =  tempmode; 
'WinIist[Index].Drawn[Drcnt].drpat  =  temppat; 
Winlistflndex]. Drawn[Drcnt].drcol  =  tempcol; 
Winlistflndex]  .drawcnt  = 

(Winlistflndex]  .drawcnt  +  1)  %  NUMDR; 


txtpen(pl); 


else 

begin 


copypt(*pl,&p2); 

while  (!mouse_up()) 
begin 

getjmouse(Winlist[Index].winid,&p3); 

if  (!equalpt(&p2,&p3)) 
begin 

drawline(&p2,&p3); 

copypt(p3,&p2); 

end 


f 


1 


1 


tl 
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Index  =  Findindex(Active); 

switch  (itemnum) 
begin 


case  ITOUTLN: 
begin 

Winlist[Index].dofilI  =  FALSE; 
item_mark(MNDRAW, ITOUTLN, TRUE); 
item_mark(MNDRAW,ITFILL,  FALSE); 
break; 

end; 

case  ITFILL: 
begin 

Winlist[Index].dofill  =  TRUE; 
item_mark(MNDRAW,ITOUTLN,FALSE); 
item_mark(MNDRAW,lTFILL,TRUE); 
break; 

end; 

case  ITSHAPE: 
begin 

if  (Winlist[Index].doIine) 
begin 

Winlist[Index].doline  =  FALSE; 
item_enable(MNDRAW  JTOUTLN) ; 
item_enable(MNDRAW,rrFILL); 
item_enable(MNDRAW,ITRECT) ; 
item_enable(MNDRA  W  JTELLIP); 
item_enable(MNDRAWJTARC90); 
item_enable(MNDRAW,ITARCl  80); 
item_enable(MNDRAW,ITARC270); 
item_enable(MNDRAW,ITRNDRCT); 
item_mark(MNDRAW,rfSHAPE,TRUE); 
item_mark(MNDRAW,ITLINE,FALSE); 
end 
break; 

end; 

case  ITLINE: 
begin 

if  (!WinIist[Index].doline) 
begin 

Winlist[Index].doIine  =  TRUE; 
item_di  sable(MNDRA  W,rrOUTLN) ; 
item_disable(MND  RAW, ITFILL); 
item_disable(MNDRAW,ITRECT); 
item_disable(MNDRAW,ITELLIP); 
item_disable(MNDRAW,ITARC90); 
item_disable(MNDRAW,ITARCl  80); 
item_disable(MNDRAW,ITARC270); 
item_disable(MNDRAW,ITRNDRCT); 
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item_mark(MNDRAW,rTSKAPE,FALSE); 

item_mark(MNDRAW,ITLINE,TRUE); 

end 

break; 

end; 

default: 

begin 

item_mark(MND  RAW, Winlistflndex], Shape, FALSE); 
item_mark(MND  RAW, itemnum, TRUE); 
Winlist[Index]. Shape  =  itemnum; 
break; 


end 


end 


*/ 

*/ 


int  itemnum; 

begin 

Int  Index; 

Window_id  Active; 

Active  =  get_active(); 

if  (Active  ==  DESK_WIN) 
return; 

Index  =  Findindex(Active); 

switch  (itemnum) 
begin 


/* . 

/*-— . . 

ChMode(itemnum) 


case  ITREPLCE: 
begin 

set_xfer_mode(REPLACE); 

break; 

end; 

case  ITTRANS: 
begin 

set_xfer_mode(TRANSPAR); 

break; 

end; 

case  UXOR: 
begin 

set_xfer_mode(XOR); 
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end; 


break; 


case  ITREVTR: 
begin 

set_xfer_mode(REVTRANS); 

break; 


default:  break; 


end 

item_mark(MNMODE,Winlist[Index].selMod, FALSE); 
item_mark(MNMODE,itemnum,TRUE); 

Winlist[Index].selMod  =  itemnum; 

Winlistflndex], winmode  =  get_xfer_mode(); 


end 


*/ 

*1 


Index  =  Findindex(Active); 

if  (Winlist[Index].dodark) 

darkinc  =  DKWHTTE; 
else 

darkinc  =  0; 


switch  (itemnum) 
begin 

case  ITDARK: 
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/* 

/* 


ChColor(itemnum) 


int 

begin 

itemnum; 

1  ■ 

int 

darkinc; 

9  9 

int 

tempc; 

Int 

Index; 

Window_id  Active; 

Active 

=  get_active(); 

if  (Active  ==  DESK_WIN) 
return; 


begin 

item_mark(MNC0L0R4temnum,TRUE); 
item_mark(MNCOLOR,ITLIGHT, FALSE); 
Winlist[Index].dodark  =  TRUE; 

tempc  =  get_color();  _  _ 

tempo  =  (tempc  %  DKWHTTE)  +  DK WHITE; 

set_color(  tempc); 

break; 

end; 

case  ITLIGHT: 
begin 

item_mark(MNCOLOR,itemnum,TRUE); 

item_mark(MNCOLOR,ITDARK,FALSE); 

Winlist[Index].dcxlark  =  FALSE; 

tempc  =  get_color(); 

tempc  =  (tempc  %  DKWHITE); 

set_color(tempc); 

break; 

end; 

case  ITBLACK: 
begin 

set_color(LTBLACK  +  darkinc); 
break; 

end; 

case  ITWHITE: 
begin 

set_color(LTWHITE  +  darkinc); 
break; 

end; 

case  ITRED: 
begin 

set_color(LTRED  +  darkinc); 
break; 

end; 

case  ITGREEN: 
begin 

set_color(LTGREEN  +  darkinc); 
break; 

end; 

case  ITBLUE: 
begin 

set_color(LTBLUE  +  darkinc); 
break; 

end; 

case  ITCYAN: 
begin 

set_co!or(LTCYAN  +  darkinc); 


53 


4 
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I 


I 


4 


I 
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break; 

end; 

case  ITYELLOW: 
begin 

set_color(LTYELLOW  +  darkinc); 
break; 

end; 

case  ITMAGENT: 
begin 

set_color(LTMAGENTA  +  darkinc); 
break; 

end; 

default:  break; 


if  ((itemnum  !=  ITDARK)  &&  (itemnum  !=  ITLIGHT)) 
begin 

item_mark(MNCOLOR,Winlist[Index].selCol,FALSE); 
item_mark(MNCOLORdtemnum,TRUE); 
Winlist[Index].selCol  =  itemnum; 


Winlist[Index].wincol  =  get_color(); 
end 

/* . */ 

/* . — . */ 


ChPattem(itemrum) 

int  itemnum; 


begin 

Int  Index; 

Window_id  Active; 

Active  =  get_active(); 

if  (Active  ==  DESK_WIN) 
return; 

Index  =  Findindex(Active); 

switch  (itemnum) 
begin 


case  ITSOLID: 
begin 

set_pattem  (SOLID) ; 
break; 
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end; 

case  ITHVYHT: 
begin 

set_pattem(HEAVYHATCH); 

break; 

end; 

case  ITHATCH: 
begin 

set_pattem(HATCH); 

break; 

end; 

case  ITLTHAT: 
begin 

set_pattem(LTHATCH); 

break; 

end; 

case  ITEMPTY : 
begin 

set_pattem  (EMPTY) ; 
break; 

end; 

default:  break; 

end 

item_mark(MNPATTRN,Winlist[Index].selPat,FALSE); 
item_mark  (MNPATTRN  ,itemnum,TRUE) ; 

Winlist[Index].selPat  =  itemnum; 

Winlistflndexj.winpat  =  get_pattem(); 

end 


/* . . -  - - - - *1 

/* . . . — . */ 

Void 

ChWin(itemnum) 

Int  itemnum; 

begin 

Int  oldlndex; 

Int  Index; 


Window_id  active; 

switch  (itemnum) 
begin 
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case  ITWIN 1 : 
begin 

Index  =  0; 
break; 
end; 

case  ITWTN2: 
begin 

Index  =  1; 
break; 
end; 

case  ITWIN3: 
begin 

Index  =  2; 
break; 

end; 

case  rTWIN4: 
begin 

Index  =  3; 
break; 

end; 

case  ITWIN5: 
begin 

Index  =  4; 
break; 

end: 

case  ITWIN6: 
begin 

Index  =  5; 
break; 

end; 

case  ITWIN7: 
begin 

Index  =  6; 
break; 
end; 

default: 

begin 

Index  =  INVALID; 
return; 
break; 
end; 


end 

if  (Winlist[Index]. Created) 
begin 


if  (Winlistflndex],  Visible) 
begin 

hide_window(Winlist[  Index] .  winid); 
Winlistflndex],  Visible  =  FALSE; 
oldlndex  =  Index; 

active  =  get_active(); 

Index  =  Findindex(active); 

if  (active  !=DESK_WIN) 

ResetMenus(oldIndex,Index); 

else 

Lastactive  =  oldlndex; 

item_mark(MNWIN,itemnum,FALSE); 

end 

else 

begin 

active  =  get_active(); 
oldlndex  =  Findindex(active); 
show_window(Winlist[Index], winid); 
ResetMenus(oldIndex, Index); 
Winlist[Index].Visible  =  TRUE; 
item_mark(MNWIN,itemnum,TRUE); 
end 


else 

begin 

active  =  get_active(); 
oldlndex  =  Findindex(active); 

Winlistflndex],  winid  =  set_new_window(&winrect, 

W_NAME  I  W_SIZE  I  W_CLOSE  I  W_HSCROLL  I  W_VSCROLL, 
Title[Index],TRUE); 

Winlist[Index].wincol  =  LTBLACK; 

Winlistflndex]. winpat  =  SOLID; 

Winlistflndex].  winmode  =  REPLACE; 

Winlistflndex], Shape  =  ITRECT; 

Winlistflndex],  selPat  =  ITSOLID; 

Winlistflndex], selCol  =  1TBLACK; 

Winlistflndex],  selMod  =  ITREPLCE; 

Winlistflndex]  .dodark  =  TRUE; 

Winlistflndex]  .dofill  =  FALSE; 

Winlistflndex]  .doline  =  FALSE; 

Winlistflndex], Created  =  TRUE; 

Winlistflndex], Visible  =  TRUE; 
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Winlist[Index].drawcnt  =  0; 

Re  se  tMe  n  us  (oldl  nde  x,  Inde  x ) ; 
item_mark(MNWIN,itemnum,TRUE); 


/* - 

I*  - - - . . . 

DoMenu(menunum,itemnum) 

int  menunum,itemnum; 

begin 

switch  (menunum) 
begin 


*/ 

*/ 


case  MNDRAW: 
begin 

ChDraw(itemnum); 
menu_hilight(MND  RAW .FALSE); 
break; 

end; 

case  MNMODE: 
begin 

ChMode(itemnum); 
menu_hilight(MNMODE,  FALSE); 
break; 

end; 

case  MNCOLOR: 
begin 

ChColor(itemnum); 
menu_hilight(MNCOLOR, FALSE); 
break; 

end; 

case  MNPATTRN: 
begin 

ChPattem  (itemnum); 
menu_hilight(MNPATTRN, FALSE); 
break; 

end; 

case  MNWTN: 
begin 

ChWin(itemnum); 
menu_hilight(MNWIN,  FALSE); 
break; 

end; 
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default: 


break; 


end 


end 


/* . 

/*— . - . 

Void 

DoKey(inchr,inmod) 

Char  inchr, 
Int  inmod; 

begin 

Int  width; 
Int  height; 
Point  Penloc; 

switch  (inchr) 
begin 


case  CARR_RET: 
begin 

height  =  get_hchar(); 
set_txtpen(&Penloc); 

Penloc.h  =  0; 

Penloc.v  +=  height; 

txtpen(&Penloc); 

break; 

end; 

case  BACK_SP: 
begin 

width  =  get_wchar(); 
set_txtpen(&Penloc); 

Penloc.h  -=  width; 
txtpen(&Penloc); 
dra  wchar(B  L  ANK ) ; 
txtpen(&Penloc); 
break; 

end; 

default: 

begin 

if  ((inchr  >=  BLANK)  &&  (inchr  <= 
drawchar(inchr); 


Ltlili] 


—  r  w 

in 


Bool  Stop; 

Int  Index; 

Int  oldlndex; 

Stop  =  FALSE; 

while  (!Stop) 
begin 


get_event(); 

switch  (EVTTYPE) 
begin 


case  CLOSEWIN: 
begin 

Stop  =  TRUE; 
break; 

end; 

case  SCROLLBAR: 
begin 

DoScroll(EVTS  CRP  ART,E  VTS  CRPOS  N, 
EVTSCRMOVE); 
break; 

end; 

case  KEYBOARD: 
begin 

DoKey(EVTKEY  £  VTMOD); 
break; 

end; 

case  TOPPED: 
begin 

if  (EVTWINDOW  !=  DESK_WIN) 
begin 

oldlndex  =  Findindex(get_active()); 
Index  =  Findindex(EVTWTNDOW); 
ResetMenus(oIdIndex,Index); 
activate_win(EVTWINDOW); 
end 
break; 

end; 
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case  MOUSEUP: 


break; 


case  MOUSEDOWN: 
begin 

if(EVTWINDOW  !=  DESK_WIN) 

DoMouseDown(&(EVPOINT),EVTMOD); 

break; 

end; 

case  REDRAW: 
begin 

DoUpdate(EVTWINDOW,&EVTRECT); 

break; 

end; 

case  MENUHIT: 
begin 

DoMenu(EVTM  1 1  rLE,EVTM!TEM); 
break; 

end; 

default:  break; 


end 

end 


end 


/*■ 

/* 


V 

*/ 


ASMAINO 

begin 


sys_init(); 

init_menu("TEST5.RSC",TEST5BAR); 

set_point(  1 0, 1 0,&T1); 

set_point(300,300,&Br); 

set_rect(&Tl,&Br,&winrect); 

Winlist[0].winid  =  set_new_window(&winrect, 

W_NAME  I  W_SIZE  I  W_CLOSE  !  W_HSCROLL  I  W_VSCROLL, 
Title[0],TRUE); 

set_color(LTBLACK); 

set_pattem(SOLID); 

set_xfer_mode(REPLACE); 

Winlist[0].wincol  =  LTBLACK; 

WinlistfOj.winpat  =  SOLID; 

WinlistfO],  winmode  =  REPLACE; 


Winlist[0].  Shape  =  ITRECT; 

WinlistfOl.selPat  =  ITSOLID; 
Winlist[0].selCol  =  ITBLACK; 
Winlist[0|.selMod  -  ITREPLCE 

Winlist[0].dodark  =  TRUE; 
Winlist[0].dofill  =  FALSE; 
Winlist[0].doline  =  FALSE; 

Winlist[01.Created  =  TRUE; 
Winlist[0]. Visible  =  TRUE; 
Winlist[Oj.drawcnt  =  0; 

evtloopO; 

sys_end(); 
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/* . - . - . - . . . — */ 

/*  ASFBIND.H  */ 

/*— . - . . . . */ 

/* . - - - - */ 

/*  Interface  Specifications  for  functions  used  to  initialize  the  */ 
/*  interface.  */ 

/*— - - - - V 


extern  State 

sys_init(); 


/*  sys_init() 


extern  State 

sys_end(); 


/*  sys_end() 


*/ 

*/ 


/*- . - . - . */ 

/*  Interface  Specifications  for  functions  used  to  manipulate  the  */ 
/*  primitive  data  type  point  (in  file  Asprim.c).  */ 

/* . - . . . */ 


extern  State 

set_point(); 


/*  set_point(Horiz,Vert,&DestPoint) 


extern  Int 

get_x_coord(); 


/*  Horiz  =  get_x_coord(&InputPoint) 


extern  Int 

get_y_coord(); 


/*  Vertical  =  get_y_coord(&InputPoint) 


extern  Bool 

equalptQ; 


/*  Flag  =  equalpt(&Pointl,&Point2) 


extern  State 

copyptQ; 


/*  copypt(&SourcePoint,&DestPoint) 


*/ 

*/ 


*/ 


*/ 

*/ 


/*  -  V 

/*  Interface  Specifications  for  functions  used  to  manipulate  the  */ 
/*  primitive  data  type  rectangle  (in  file  Asprim.c).  */ 

/* . — . — . V 
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extern  State 

set_rect(); 


/*  set_rect(&Pointl,&Point2,&DestRect)  */ 


extern  State 

set_topLeft(); 

t 

extern  State 

set_botRight(); 

y 

extern  Bool 

pt_in_rect(); 


/*  set_topLeft(&SourceRect,&DestPoint)  */ 


f*  set_botRight(&SourceRect,&DestPoint)  */ 


/*  Flag  =  pt_in_rect(&QPoint,&TgtRect)  */ 


/*  set_insect_rect(&Rectl,&Rect2,&DestRect)  */ 

extern  State 

set_insect_rect(); 


extern  Bool 

insect_rect(3; 


extern  Bool 

equalrect(); 

extern  State 

copyrectQ; 


/*  Flag  =  insect_rect(&Rectl,&Rect2) 


/*  Flag  =  equalrect(&Rectl,&Rect2) 


/*  copyrect(&SourceRect,&DestRect) 


/*  Interface  Specifications  for  functions  used  to  manipulate  */ 
/*  windows  as  a  whole  entity,  (in  file  Aswin.c).  */ 


/*  set_new_window(&DefRect,Partspec,Titlestr, 
/*  Visible) 

extern  Window_id 

set_new_window(); 

/*  activate_win(WindowId) 

extern  State 

activate_win(); 

/*  hide_window(WindowId) 

extern  State 

hide_window(); 
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/*  show_window(WindowId) 


extern  State 

show_window(); 


extern 


/*  close_window(WindowId) 

State 

close_window(); 


*/ 


*/ 


extern  Bool 

update_win(); 


/*  Rag  =  update_win(WindowId,&UpdRect,&InctRect)*/ 


extern 


/*  Flag  =  next_update(WindowId,&UpdRect,&InctRect)*/ 

Bool 

next_update(); 


extern 


l*  end_update() 

State 

end_update(); 


*/ 


/*  Windowld  =  get_active() 

extern  Window_id 
get_active(); 


*/ 


/* . . */ 

/*  Interface  Specifications  for  functions  used  to  manipulate  the  scroll  */ 

/*  bar  portions  of  windows,  (in  file  Aswin.c).  */ 

/* . */ 


extern  State 

hscrollQ; 


/*  hscroll(NumberPixels,&UpdRect) 


extern  State 

vscrollQ; 


/*  vscroll(NumberPixels,&UpdRect) 


extern  State 

set_hscroll(); 


(*  set_hscroll (Value) 


extern  State 

setjvscrollQ; 


/*  set_vscroll( Value) 


extern  Int 

get_hscroll(); 


/*  Value  =  get_hscroll() 


extern  Int 


/*  Value  =  get_vscroll() 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 
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get_vscroll(); 


/*  Interface  Specifications  for  functions  used  to  manipulate  the*/ 
/*  drawing  environment  of  windows,  (in  file  Aswin.c).  */ 


/*  set_xfer_mode(NewModeId) 

extern  State 

set_xfer_mode(); 


extern  State 

set_pattem(); 


extern  State 

set_color(); 


extern  Color_id 

get_color(); 


/*  set_pattem(NewPattemId) 


/*  set_color(NewColor!d) 


/*  Colorld  =  get_color() 


/*  Modeld  =  get_xfer_mode() 

extern  Mode_id 

get_xfer_mode(); 


extern  Pattem_id 

get_pattem(); 


/*  Pattem_id  =  get_pattem() 


/*  Interface  Specifications  for  functions  used  for  drawing  graphic  */ 
/*  objects  into  windows,  (in  file  Aswin.c).  */ 


extern  State 

drawline(); 


extern  State 

drawrectQ; 


extern  State 

drawellipseQ; 


/*  drawline(&StartPoint,&EndPoint) 


/*  drawrect(&InputRect) 


I*  drawellipse(&InputRect) 


/*  drawarc(&InputRect,BeginAng,EndAng)  */ 
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extern  State 

drawarcQ; 


extern  State 

drawmdrectQ; 


/*  drawmdrect(&InputRect) 


extern  State 

fillrectO; 


extern  State 

fillellipseO; 


extern  State 

fillarcO; 


ev  to - - 

/VVC111  OVUlW 

fillmdrectO; 


/*  fillrect(&InputRect) 

/*  fillellipse(&InputRect) 

/*  fillarc(&InputRect,BeginAng,EndAng) 

/*  fillmdrect(&InputRect) 


/* . - . - . */ 

/*  Interface  Specifications  for  functions  used  for  text  */ 

/*  manipulation  within  windows,  (in  file  Aswin.c).  */ 

/* . - . - . - . */ 


extern  State 

txtpenQ; 


/*  txtpen(&InputPoint) 


extern  State 

set_txtpen(); 


/*  set_txtpen(&DestPoint) 


extern  State 

drawstringO; 


/*  drawstring(&String) 


extern  State 

drawcharQ; 


/*  drawchar(Character) 


extern  Int 

get_wchar(); 


/*  CharWidth  =  get_wchar() 


extern  Int 

get_hchar(); 


/*  CharHeight  =  get_hchar() 


APPENDIX  B 


Mac  implementation  of  Common  Interface 


/* - - */ 

/*  ASBIND.H  (for  Demo.c  use)  */ 

/* - */ 


#include  "MacTypes.h" 


#define 

begin 

{ 

#define 

end 

} 

typedef 

int 

Bool; 

typedef 

int 

Int; 

typedef 

char 

Char, 

typedef 

long 

Long; 

typedef 

unsigned  int 

Bitl6; 

#define 

State 

void 

#define 

Void 

void 

typedef 

int 

Pattem_id; 

typedef 

int 

Mode_id; 

typedef 

int 

Color Jd; 

typedef 

int 

Window_id; 

#define 

W  NAME 

0X0009 

#define 

W  CLOSE 

0X0002 

#define 

W  SIZE 

0x0020 

#defme 

W_HSCROLL  OxOEOO 

#define 

WVSCROLL 

0x0  ICO 

#defme 

INVAL  WIN 

-1 

#define 

DESK  WIN 

0 

#define 

MAXNUMWIN  7 

#define 

SOLID 

1 

#define 

HEAVYHATCH  2 

#define 

HATCH 

3 

#define 

LTHATCH 

4 

#define 

EMPTY 

5 

#define 

LTWHTTE 

0 

#define 

LTBLACK 

1 

^define 

LTRED 

2 

#define 

LTGREEN 

3 

#define 

LTBLUE 

4 

#define 

LTCYAN 

5 

#define 

LTYELLOW 

6 

#define 

LTMAGENTA  7 

#define 

DKWHITE 

8 

#define 

DKBLACK 

9 

#define 

DKRED 

10 

#define 

DKGREEN 

11 

^define 

DKBLUE 

12 

#define 

DKCYAN 

13 

^define 

DKYELLOW 

14 

#define 

DKMAGENTA 

15 

#define 

REPLACE 

1 

#define 

TRANSPAR 

2 

#define 

XOR 

3 

#define 

REVTRANS 

4 

#define 

FALSE 

0x0000 

^define 

TRUE 

0x0001 

#define 

POINTER(x) 

(int)(x) 

#define 

ASMAINO 

main() 

typedef 

begin 

struct  Evtmsg 

int 

type; 

Window_id  winid; 

Rect 

evrec; 

Point 

evpoint; 

int 

scrpart; 

int 

scrposn; 

int 

scrmoved; 

char 

keystroke; 

int 

mod; 

int 

mtitle; 

int 

mitem; 

end 

Evtmsg; 

extern  Evtmsg  Message; 

#deftne 

EVTTYPE 

Message. type 

#define 

EVTWINDOW 

Message,  winid 

#define 

EVTRECT 

Message.evrec 

#define 

EVPOINT 

Message.evpoint 

#define 

EVTSCRPART 

Message. scrpart 

#define 

EVTSCRPOSN 

Message. scrposn 

#define 

EVTSCRMOVE 

Message. scrmoved 

#define 

EVTKEY 

Message.keystroke 

#define 

EVTMOD 

Message.mod 

#define 

EVTMTTTLE 

Message.mtitle 

#define 

EVTMITEM 

Message. mitem 

#define 

REDRAW 

0 

#define 

TOPPED 

1 

#deftne 

CLOSEWIN 

2 

#defme 

SCROLLBAR 

3 

#deftne 

MOUSEDOWN 

4 

#define 

KF  ABOARD 

5 

#define 

MOUSEUP 

6 

#define 

MENUHIT 

7 

#deflne 

V  PAGEUP 

0 

#defme 

V  PAGEDOWN 

1 

#defuie 

V  ROWUP 

2 

#define 

V  ROWDOWN 

3 

#define 

H  PAGEUP 

4 

^define 

H  PAGEDOWN 

5 

#define 

H  ROWUP 

6 

#define 

H  ROWDOWN 

7 

#define 

V  THUMB 

8 

#define 

H_THUMB 

9 

#define 

MINSCR 

0 

#define 

MAXSCR 

1000 

^define 

DESKMENU 

32767 

#define 

NUL  CHR 

\0’ 

#defme 

CARR  RET 

OxOD 

#defme 

BACK  SP 

0x08 

#define 

BLANK 

0x20 
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DEMO.H  (for  Demo.c  use) 


/* 

/* 

/* 


#define 

INVALID 

-1 

#defme 

TEST5BAR 

12 

#define 

MNDRAW 

13 

#define 

ITOUTLN 

1 

#define 

ITFILL 

2 

#define 

ITRECT 

4 

#define 

ITELLIP 

5 

#define 

ITARC90 

6 

#define 

ITARC180 

7 

#define 

ITARC270 

8 

#defme 

ITRNDRCT 

9 

#define 

ITSHAPE 

11 

#define 

ITLINE 

12 

#defme 

MNMODE 

14 

#define 

ITREPLCE 

1 

#define 

ITTRANS 

2 

#define 

ITXOR 

3 

#define 

ITREVTR 

4 

#define 

MNCOLOR 

15 

#define 

ITDARK 

1 

#define 

ITLIGHT 

2 

#define 

ITBLACK 

4 

#define 

ITWHITE 

5 

#define 

ITRED 

6 

#define 

ITGREEN 

7 

#define 

ITBLUE 

8 

#defune 

ITCYAN 

9 

#define 

ITYELLOW 

10 

#define 

ITMAGENT 

11 

#defuie 

MNPATTRN 

16 

#define 

ITSOLID 

1 

#define 

ITHVYHT 

2 

#define 

ITHATCH 

3 

#define 

ITLTHAT 

4 

#define 

ITEMPTY 

5 

#deflne 

MNWIN 

20 

#define 

ITWIN1 

1 

#define 

ITWIN2 

2 

#define 

ITWIN3 

3 

#define 

ITWIN4 

4 

#define 

ITWIN5 

5 

#define 

ITWIN6 

6 

#define 

ITWIN7 

7 

/* _ _ _ _ _ _ _ _ _ *j 

/*  ASPRIM.C  (for  Demo.c  use)  */ 

/* . .  */ 

#include  "Asbindl.h" 

/*- — . — . — - - - */ 

/*  get_x_coord:  Function  which  returns  the  horizontal  */ 
/*  coordinate  of  the  input  point  pt.  */ 

I* . -  - - -*/ 

Int  get_x_coord(pt) 


Point  *pt; 

begin 

retum((*pt).h); 

end 

/*--■ . . */ 

/*  get_y_coord:  Function  which  returns  the  vertical  coordinate  */ 
/*  of  the  input  point  pt.  */ 

/* .  . */ 

Int  get_y_coord(pt) 

Point  *pt; 

begin 

retum((*pt).v); 

end 


/* . - . - .  -*/ 

/*  set_topLeft:  Function  which  returns  the  top  left  point  of  the  */ 
/*  input  rectangle  r  as  p.  */ 

/* . - - - - - . */ 

State  set_topLeft(r,p) 


Rect  *r, 

Point  *p; 

begin 

(*p).h  =  (*r).Ieft; 
(*p).v  =  (*r).top; 
end 


/*  V 

/*  set_botRight:  Function  which  returns  the  bottom  right  */ 

/*  point  of  the  inputrectangle  r  as  p.  */ 

/*  */ 


State  set_botRight(r,p) 
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r 


Rect  *r, 
Point  *p; 


begin 

(*p).h  =  (*r).right; 
(*p).v  =  (*r).  bottom; 

end 


j* _ _ _ _ _ _ */ 

/*  pt_in_rect:  Function  which  determines  if  the  input  point  p  is  */ 
/*  within  or  on  the  border  of  the  input  rectangle  r.  */ 

/*- - - - */ 


Bool  pt_in_rect(pj) 

Point  *p; 

Rect  *r; 

begin 

retum(PtInRect(*p,  r)); 

end 


/* . . . */ 

/*  set_insect_rect:  Function  which  determines  the  rectangle  which  */ 

/*  is  formed  by  the  intersection  of  the  input  rectangles  rl  and  r2.  The  */ 

/*  resulting  rectangle  is  returned  in  rinL  If  the  intersection  is  non-  */ 

/*  empty,  the  rectangle  returned  in  rint  will  be  defined  by  top  left  and  */ 

/*  bottom  right  points  of  (0,0).  */ 

/* . */ 


State  set_insect_rect(rl,r2,rint) 
Rect  *rl,  *r2,  *rint; 


begin 

SectRect(rl,  r2,  rint); 
end 


I* _ _ _ _ _ _ _ _ *j 

/*  insect_rect:  Function  which  determines  if  the  input  */ 

/*  rectangles  rl  and  r2  intersect.  */ 

/* . -  -  - V 


Bool  insect_rect(r  1  ,r2) 

Rect  *rl,  *r2; 

begin 

Rect  *rint; 

retum(SectRect(rl ,  r2,  rint)); 
end 

/*  V 
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/*  equalrect:  Function  which  determines  if  the  two  input  */ 

/*  rectangles  are  the  same  rectangle.  */ 

/*  .  */ 

Bool  equalrect(rl,r2) 

Rect  *rl,  *r2; 

begin 

retum(EqualRect(rl,  r2)); 
end 

/*-— . - . . . . -  - */ 

/*  equalpt:  Function  which  determines  if  the  two  input  points  */ 
/*  are  the  same  point.  */ 

/*  - -  */ 

Bool  equalpt(pl,p2) 

Point  *pl,  *p2; 

begin 

retum(FqualPt(*pl,*p2)); 

end 

/* . - . — */ 

/*  copypt:  Function  which  copies  the  source  point  into  the  */ 

/*  destination  point.  */ 

/* . */ 

State  copypt  (source, dest) 

Point  source,  *dest; 

begin 

(*dest).h  =  source. h; 

(*dest).v  =  source. v; 
end 

/* . . . . . . . */ 

/*  copyrect:  Function  which  copies  the  source  rectangle  */ 

/*  into  the  destination  rectangle.  */ 

/*  - */ 

State  copyrect  (source, dest) 

Rect  source, *dest; 

begin 

(*dest).left  =  source. left; 

(*dest).top  =  source. top; 

(*dest).right  =  source. right, 

(*dest).  bottom  =  source,  bottom; 
end 
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/* . - .  . — - .  . — ■ -*/ 

/*  set_point:  Given  two  integers  which  represent  the  x  and  y  */ 

/*  coordinates  (the  new  horizontal  and  vertical  positions  */ 

/*  of  the  point),  the  function  returns  r  modified  point.  */ 

/*  */ 

State  set_point(x,y,pt) 

int  x,y; 

Point  *pt; 

begin 

SetPt(pt,x,y); 

end 

/* . - . . . . */ 

/*  set_rect:  Function  which,  given  two  points,  determines  the  smallest  */ 

/*  rectangle  that  those  points  could  define  and  sets  the  top  left  and  */ 

/*  bottom  right  points  of  the  output  rectangle  r  to  correspond  to  that  */ 

/*  rectangle.  */ 

/*- . . - . -*/ 

State  set_rect(pl,p2,r) 

Point  *pl,*p2; 

Rect  *r, 

begin 

/*  case  1  p2  is  to  the  right  and  below  pi  */ 
if  (((*p2).h  >=  (*pl).h)  &&  ((*p2).v  >=  (*pl).v)) 

SetRect(r,(*pl).h,  (*pl).v,  (*p2).h,  (*p2).v); 

/*  case  2  pi  is  to  the  right  and  below  p2  */ 
else  if  (((*pl).h  >=  (*p2).h)  &&  ((*pl).v  >=  (*p2).v)) 

SetRect(r,  (*p2).h,  (*p2).v,  (*pl).h,  (*pl).v); 

/*  case  3  pi  is  to  the  right  and  above  p2  */ 
else  if  (((*pl).h  <=  (*p2).h)  &&  ((*pl).v  >=  (*p2).v)) 
SetRect(r,(*pl).h,  (*p2).v,  (*p2).h,  (*pl).v); 

/*  case  4  p2  is  to  the  right  and  above  pi  */ 
else  if  (((*p2).h  <=  (*pl).h)  &&  ((*p2).v  >=  (*pl).v)) 
SetRect(r,(*p2).h,  (*pl).v,  (*pl).h,  (*p2).v); 


end 


/* 

/* 


ASEVT.C 


*/ 

*/ 


#include  "asevti.c" 

State  get_event() 
begin 

EventRecord  myEvent; 

PenState  thePen; 

evtstop  =  false; 
while  (!  evtstop)  begin 

SystemTask(); 

GetNextEvent(everyEvent,  &myEvent); 
switch(myEvent.what)  begin 
case  mouseDown: 

MDEvent(myEvent); 

break; 

case  auto  Key: 
case  keyDown: 

EVTTYPE  =  KEYBOARD; 

EVTKEY  =  (char)(0x7F  &  LoWord(myEvent.message)); 
EVTMOD  =  myEvent.modifiers; 
evtstop  =  true; 
break; 

case  updateEvt: 

EVTWINDOW  =  GetWRefCon(myEvent.message); 

SetRect(&EVTRECT,0,0,0.0); 

EVTTYPE  =  REDRAW; 
evtstop  =  true; 

SetPort(myEvent.message); 

GetPenSfate(&thePen); 

PenMode(patCopy); 

PenPat(black); 

SetOrigin(WindList[  EVTWINDOW]  .Wholewin.top, 
WindList[EVTWINDOW].Wholewin.left); 
ClipRect(&(WindList[EVTWINDOW].Wholewin)); 

if  ((WindList[ EVTWINDOW], Parts  &  W_SIZE)  ==  W_SIZE) 
DrawGrowIcon(WindList[EVTWINDOW].Winhandle); 

DrawControls(myEvent,  message); 

SetOrigin(WindList[  EVTWINDOW],  Work  win. top, 
WindList[EVTWINDOW].Workwin.left); 
ClipRect(&(WindList[EVTWINDOW].Workwin)); 


SetPenState(&thePen); 

SetPort(WindList[Active_win].Winhandle); 


break; 

defaultrbreak; 

end 

end 

end 

/* . - - - - - . */ 

/*  get_mouse:  Function  which  gets  the  current  mouse  position  and  outputs  */ 
/*  it  in  the  local  coordinate  system  of  the  window  specified  by  Id.  */ 
/* . . . . — - - - */ 

State  get_mouse(Id,pt) 

Int  Id; 

Point  *pt; 

begin 

GrafPtr  tempport; 

GetPort(&tempport); 

SetPort(WindList[Id].Winhandle); 

GetMouse(pt); 

SetPort(tempport); 

end 

/* 

/* 

Bool  mouse_up() 
begin 

retum(!Button()); 
end 


*/ 

*/ 


n 


/*  */ 

/*  ASEVTI.C  */ 

/*  */ 


#include  "Windecl.h" 


static  Bool 

Evtmsg 

extern  Window_id 
extern  Winrec 


evtstop; 

Message: 

Active_win;  /*  index  of  active  window 
WindListfMAXNUMREC]; 


*/ 


State  MDEvent(event) 


EventRecord  event; 


begin 

WindowPtr 

Window_id 

Lnt 

GrafPtr 

ControlHandle 

lnt 

Rect 

Long 

Long 


MyWindow; 

winID; 

location; 

tempport; 

whscroll; 

part,modpart,hval,wal; 

arect,brect; 

amtmove; 

menuresp; 


location  =  FindWindow(event.  where, &MyWindow); 


if  (MyWindow  !=  NIL) 

EVTWINDOW  =  GetWRefCon(MyWindow); 

else 

EVTWINDOW  =  0; 

if  ((EVTWINDOW  !=  Active_win)&&(location  !=  inMenuBar))  begin 
GetPort(&tempport); 

SetPort(MyWindow); 

GlobalToLocal(&(event.  where)); 

EVTTYPE  =  TOPPED; 

EVTMOD  =  event.modifiers; 
copypt(event.where,&EVPOINT); 

SetPort(tempport); 
evtstop  =  true; 


else 

begin 

switch  (location) 
begin 

case  inMenuBar: 

menuresp  =  MenuSelect(event.where); 
EVTMTITLE  =  HiWord(menuresp); 
EVTMITEM  =  LoWord(menuresp); 
EVTTr  PE  =  MENUHIT; 
evtstop  =  true; 
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break; 


< 


case  inContent: 

GetPort(&tempport); 

SetPort(MyWindow); 

copypt(event.where,  &EVPOINT); 

SetOrigin(0,0); 

CUpRect(&(WindList[EVTWINDOW].Wholewin)); 

GlobalToLocal(&(event.where)); 

part  =  FindControl(event.where,MyWindow,&whscroll); 


I 


4 


1 


I 


if  (part  =  0)  begin 

SetOri  gin  (W in  dList[E  VTWINDOW]  .Work  win. left, 
WindList[EVTWINDOW].Workwin.top); 
ClipRect(&(WindList[E  VTWINDOW] .  Workwin)); 
GlobalToLocal(&EVPOEND; 

EVTTYPE  =  MOUSEDOWN; 

EVTMOD  =  event.modifiers; 

SetPort(tempport); 
evtstop  =  TRUE; 


else  if  ((whscroll  ==  WindList[EVTWINDOW].Hscrhandle)  II 

(whscroll  ==  WindList[EVTWINDOW].Vscrhandle))  begin 

F.VTTYPE  =  SCROLLBAR; 

hval  =  GetCtl  V  alue(W  indList[E  VTWINDOW]  .Hscrh  andle) ; 
wal  =  GetCtlValue(WindList[EVTWINDOW].Vscrhandle); 

modpart  =  TrackControl(w'hscroll,eveiiuwhcic,0), 

if  (modpart  ==  part) 
begin 

if  (whscroll  ==  WindList[EVTWINDOW].Vscrhandle) 
begin 


switch  (modpart) 
begin 

case  inPageUp: 

EVTSCRPART  =  V_PAGEUP; 
break; 


case  inPageDown: 

EVTSCRPART  =  V_PAGEDOWN; 
break; 


case  inUpButton: 

EVTSCRPART  =  V_ROWUP; 
break; 


i 
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case  inDownButton: 

EVTSCRPART  =  V_ROWDOWN; 
break; 

case  inThumb: 

EVTSCRPART  =  V_THUMB; 
break; 


default:  break; 
end 

EVTSCRMOVE  = 

GetCtl  Value  (W  indList  [E  VTWINDO  W] .  V  scrhandle) 

-  wal; 

EVTSCRPOSN = 

GetCtl  Value(V/indList[E  VTWINDO  W]  .V  scrhandle) ; 
SetCtlValue(WindList[EVTWINDOW].Vscrhandle,wal); 
end 

else 

begin 

switch  (modpart) 
begin 


case  inPageUp; 

EVTSCRPART  =  H_PAGEUP; 
break; 

case  inPageDown: 

EVTSCRPART  =  H_P  AG  EDOWN ; 
break; 

case  inUpButton: 

EVTSCRPART  =  H_ROWUP; 
break; 

case  inDownButton: 

EVTSCRPART  =  H_ROWDOWN; 
break; 

case  inThumb: 

EVTSCRPART  =  H_THUMB; 
break; 

default:  break; 


EVTSCRMOVE  = 

GetCtlValue(WindList[EVTWINDOW].Hscrhandle) 

-  hval; 
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EVTSCRPOSN  = 

GetCtl  V  alue(WindList[E  VTWINDOW]  .Hscrhandle); 
SetCtlValue(WindList[EVTWTNDOW]. Hscrhandle, h'  il); 
end 

end  /*  if  */ 

SetOrigin(WindList[EVTWINDOW]  .Workwin  .left, 

WindList[EVTWINDOW].Workwin.top); 
ClipRect(&(WindList[EVTWINDOW]  .Workwin)); 
SetPort(tempport); 
evtstop  =  TRUE; 
end  /*  else  */ 

break; 

case  inDrag: 

if  (EVTWINDOW  ==  Active_win) 
begin 

SetRect(&brect,-3?000, 20,32000,32000); 
DragWindow(MyWindow,event.where,&brect); 

SetOrigin(WindList[EVTWINDOW].Wholewin.left, 

W  indList[E  VTWINDOW]  .Whole  win  .top) ; 
ClipRect(&(WindList[EVTWINDOW].Wholewin)); 

if  (WindList[E VTWINDOW]. Parts  &  W_SIZE) 
DrawGrowIcon(MyWindow); 

DrawControls(My  Window); 

SetOrigin(WindList[EVTWINDOW].Workwin.left, 

W  indList  [EVTWINDOW] .  W  ork  win .  top) ; 
ClipRect(&(WindList[EVTWINDOW].Workwin)); 

end 

break; 

case  inGrow: 

if  (EVTWINDOW  ==  Active_win) 
begin 

SetRect(&brect,40,40, 1000, 1 000); 

SetOrigin(WindList[EVTWINDOW].Wholewin.left, 
WindUst[E  VTWINDOW].  Wholewin. top); 
ClipRect(&(WindList[E  VTWINDOW].  Wholewin)); 

amtmove  =  GrowWindow(MyWindow,event.where, 

&brect); 

hval  =  LoWord(amtmove); 
wal  =  HiWord(amtmove); 

copyrect(WindList[EVTWINDOW].Workwin,&brect); 
SizeWindow(MyWindow, hval, wal, FALSE); 


copyrect((*MyWindow).portRect,&(WindList[EVTWINDOW].Wholewin)); 


copyrect((*My  Window). portRect,&(WindList[EVTWINDOW].Workwin)); 

copyrect((*MyWindow).portRect,&arect); 
arect.right  -=  16; 
arect. bottom  -=  16; 

CHpRect(&(WindList[E  VTWINDOW]  .Wholewin )); 

if  (((WindList[E VTWINDOW] .Parts  &  W_SIZE)  >  0)  && 
(amtmove  !=  0)) 

begin 

DrawGrowIcon(MyWindow); 
WindList[EVTVVTNDOW].Workwin.bottom  -=  16; 
WindList[EVTWINDOW].Workwin.right -=  16; 
end 

ClipRect(&arect); 

if  (((WindList[E VTWINDOW], Parts  &  W_HSCROLL)  >  0) 
&&  (amtmove  !=  0)) 

begin 

SizeControl(WindList[EVTWINDOW].Kscrhandle, 
hval  -  15,16); 

MoveControl(WindList[EVTWINDOW].Hscrhandle, 
WindList[E  VTWINDOW] .  Wholewin.left, 
WindList[EVTWINDOW].Wholewin.bottom  -  16); 

if  (!((WindList[EVTWINDOW]  .Parts  &  W_SIZE)  >  0)) 
WindList[EVTWINDOW].Workwin.bottom  -=  16; 
end 

if  (((WindListfEVTWINDOW], Parts  &  W_VSCROLL)  >  0) 
&&  (amtmove  !=  0)) 

begin 

SizeControI(WindList[EVTWINDOW].Vscrhandle, 

16,  wal-  15); 

MoveControl( 

WindList[E VTWINDOW]. Vscrhandle,  hval  -  16,0); 

if  (!((WindList[EVTWINDOW], Parts  &  W_SIZE)  >  0)) 
WindList[EVTWINDOW].Workwin.right  -=  16; 


end 

ClipRect(&(WindList[EVTWINDOW].Wholewin)); 
DrawControIs(My  Window); 

if  (amtmove  !=  0) 

OffsetRect(&(WindList[E  VTWINDOW].  Work  win), 
brectleft,brect.top); 
else 

copyrect(brect. 
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&(WindList[EVTWINDOW].  Work  win)); 

SetOrigin(WindList[EVTWlNDOW].Workwin.left, 

WindList[EVTWINDOW].Workwin.top); 

ClipRect(&(WindList[EVTWINDOW].Workwin)); 

InvaiRect(&(WindList[EVTWINDOW].Workwin)); 

VaIidRect(&brect); 

end  l*  if  */ 
break; 

case  inGoAway: 

if  (TrackGoAway(MyWindow,event.  where)) 
begin 

EVTTYPE  =  CLOSEWIN; 
evtstop  =  TRUE; 
end 

break; 

default:  break; 

end 

end 

end 
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/* .  -*/ 

/*  ASWIN.C  */ 

/* . .  */ 


#include  "Windecl.h" 

#inciude  "aswini.c" 


/* .  -  - */ 

/*  - - */ 

Su..e  sys_end() 

begin 

ExitToShell(); 

end 

/* . .  */ 

/* .  -  - */ 

State  sys_init() 

begin 

InitGraf(&thePort); 

InitFontsO; 

FlushEvents(everyEvent,  0); 

InitWindows(); 

InitMenusO; 

TEInit(); 

InitDialogs(&sys_end); 

InitCursor(); 

wind_init(); 

end 


/* . . . - . */ 

/*  activate_win:  Function  which  causes  the  specified  window  to  become  *( 
/*  the  active  window.  It  causes  any  window  (but  the  desktop  with  a  */ 
/*  id  number  of  0)  to  be  moved  to  the  top  and  a  new  backround  will  */ 
/*  be  drawn  in,  however,  the  contents  will  not  be  automatically  */ 

/*  redrawn.  */ 

/* . —  - - - */ 


State  activate_win(Id) 
Int  Id; 


begin 


if((Id  !=  Active_win)  &&  (Id  !=  25)) 
begin 

/*  if  control  bars  present  remove  them  from  the  window  */ 
/*  being  deactivated  */ 

if  (Active_win  !=  DESK_WIN) 
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begin 

SetPort(WindList[Active_win].WinhandIe); 
SetOrigin(WindList[Active_win].  Wholewin. left, 
WindList[Active_win].Wholewin.top); 
ClipRect(&(WindList[Active_win].Wholewin)); 

if  ((WindList[Active_win]. Parts  &  W_HSCROLL)  == 
W_HSCROLL) 

HideControl(WindList[Active_win].Hscrhandle); 

if  ((WindList[Active_win]. Parts  &  W_VSCROLL)  == 
W_VSCROLL) 

HideControl  (WindList  [  Active_win] .  V  scrhandle); 
end 

/*  Draw  the  grow  box  and  scroll  bars  in  the  window  being  activated  */ 

SelectWindow(WindList[Id].Winhandle); 

Last_active  =  Active_win; 

Active_win  =  Id; 

SetPort(WindList[Id].Winhandle); 

SetOrigin(WindList[Active  win], Wholewin. left, 

WindListfAc.  win].Wholewin.top); 
ClipRect(&(WindList[Active_win],  Wholewin)); 

if  ((WindList[ Active_win] .Parts  &  W_SIZE)  ==  W_SIZE) 
DrawGrowIcon(WindList[Active_win].Winhandle); 

if  ((WindList[  *ctive_win] .Parts  &  W_HSCROLL)  ==  W_HSCROLL) 
ShowControl(WindList(Active_win].Hscrhandle); 

if  ((WindList[Active_win], Parts  &  W_VSCROLL)  ==  W_VSCROLL) 
ShowControl(WindList[Active_win].Vscrhandle); 

SetOrigin(WindList[Active_win].Workwin.left, 

WindList[Active_win].Workwin.top); 

ClipRect(&(WindList[Active_win].Workwin)); 


/*  erase  the  grow  box  in  the  newly  inactive  window  */ 
if  (Last_active  !=  DESK.WIN) 
begin 

SetPort(WindList[Last_active].Winhandle); 

if  ((WindList[Last_active]  .Parts  &  W_SIZE)  ==  W_SIZE) 
DrawGrowIcon(WindList[Last_active].Winhandle); 

SetOrigin(WindList[Last_active].Workwin.left, 

WindList[Last_active].Workwin.top); 

ClipRect(&(WindList[Last_active].Workwin)); 

SetPort(WindList[Id].Winhandle); 
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end 


end 

end 

/* - - - - - */ 

/*  show_window:  Function  which  draws  an  invisible  but  previously  defined  */ 
/*  window  onto  the  screen.  This  window  becomes  the  active  window.  */ 
/*  -  - - - */ 

State  show_window(Id) 

Int  Id; 

begin 

WindowPtr  tempptr; 

if  (Id  !=  DESK_WIN) 
begin 

if  (!WindList[Id].Wdefrec.visible) 
begin 

ShowWindow(WindList[Id].Winhandle); 

activate_win(Id); 

end 

end 

end 


/* . */ 

/*  hide_window:  Function  which  removes  the  specified  window  */ 
/*  from  the  screen  without  deallocating  it.  */ 

/* . - . - . */ 


State  hide_window(Id) 
Int  Id; 


begin 


WindowPtr  tempptr, 

Window_id  newactid; 

if  ((Id  !=  DESKJWIN)  &&  (WindList[Id].Wdeffec. visible)) 
begin 

HideWindow(WindList[Id].Winhandle); 

if  ((Id  ==  Active_win)  &&  any_visible()) 
begin 

tempptr  =  FrontWindow(); 
newactid  =  GetWRefCon(tempptr); 
activate_win(newactid); 
end 

end 
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Window_id  set_new_window(InitRect,  Partspec,  Title,  is_Visible) 


begin 


static  Int 


Rect 

Bitl6 

Char 

Boolean 


*InitRect; 

Partspec; 

♦Tide; 

isJVisible; 


Bool  IfWName; 

Bool  IfWClose; 

Bool  IfWSize; 

Bool  IfWScrollH; 

Bool  IfWScrollV; 

Bool  IfShrunk; 

Int  oldRef; 

Int  procID; 

WindowPtr  myWindow; 


*Name,temp[255]; 

vScrollRect,hScrollRect,tempWdef; 

refCon  =  0;  /*  Reference  constant  for  new  window  */ 


IfWName  =  Partspec  &  W_NAME; 
IfWClose  =  Partspec  &  W_CLOSE; 
IfWSize  =  Partspec  &  W_SIZE; 
IfWScrollH  =  Partspec  &  W_HSCROLL; 
IfWScrollV  =  Partspec  &  W_VSCROLL; 


if  (!get_next_rec(&refCon)) 
retum(INVAL_WIN); 

WindList[refCon],  Parts  =  Partspec; 
SetPt(&(WindList[refCon].Txtpen),0,20); 
copyrect(*InitRect,  &tempWdef); 
tempWdef.top  +=  20; 
OffsetRect(&tempWdef,0,20); 

if  (IfWSize) 

procID  =  documentProc; 
else  begm (^fWName  )( lfwclose) 

procID  =  noGrowDocProc; 

else 

procID  =  plainDBox; 


>T«. 


if  (IfWName)  begin 

strcpy(temp, Title); 

CtoPstr(temp); 

Name  =  temp; 
end  else 

Name  = 

myWindow  =  NewWindow(&(WindList[refCon].Wdefrec),  &tempWdef, 
Name,  false,  procID,  NIL,  IfWClose,  refCon); 
Available_win[refCon]  =  false; 

WindList[refCon].Winhandle  =  myWindow; 

SetPort(my  Window); 

copyrect((*myWindow).portRect,  &(WindList[refCon],  Whole  win)); 
copyrect((*my Window).portRect,  &(WindList[refCon] . Workwin)); 
if  (IfWSize)  begin 

IfShrunk  =  true; 

WindList[refCon],  Workwin. bottom  -=  17; 
WindList[refCon].Workwin. right  -=  17; 
end  else  IfShrunk  =  false; 

if  (IfWScrollH)  begin 

copyrect(WindList[refCon].Wholewin,  &hScrollRect''; 
hScrollRect.top  =  hScrollRect.bottom-16; 
hScrollRect.right  -=  15; 

WindList[refCon].Hscrhandle  - 

NewControl(myWindow,  &hScrollRect,  "\p",  false, 
MINSCR,  MINSCR,  MAXSCR,scrollBarProc,refCon); 
if  (!  IfShrunk) 

WindList[refCon].Workwin. bottom  -=  16; 

end  else 

WindList[refCon].Hscrhandle  =  0; 
if  (IfWScrollV)  begin 

copyrect(WindList[refCon].Wholewin,  &vScrollRect); 
vScrollRect.left  =  vScrollRect.right-16; 
vScrollRect. bottom  -=  15; 

WindList[refCon].Vscrhandle  = 

NewControl(mvWindow,  &vScrollRect,”\p",  false, 
MINSCR, MINSCR,  MAXSCR,scrollBarProc,refCon); 
if  (HfShrunk) 

WindList[refCon].Workwin.right  -=  16; 
end  else  WindList[refCon].Vscrhandle  =  0; 

ClipRect(&(WindList[rerCon].  Work  win)); 

WindList[refCon].wincol  =  LTBLACK; 

WindListjrefConj.winpat  =  SOLID; 

WindList[refConj. winmode  =  REPLACE; 

TextMode(srcBic); 

TextFont(monaco); 

if  (is_Visible) 

show_window(refCon); 


else 


SetPort(WindList[  Active_  win] .  Winhandle); 
retum(refCon); 


/* . - . . . . . ---*/ 

/*  set_pattem:  Function  which  sets  the  pattern  to  be  used  to  draw  */ 
/*  and  fill  in  shapes  in  the  active  window.  */ 

/* - - */ 

State 

set_pattem(newpattem) 


begin 


Patterned  newpattem; 


if  (((WindList[Active_win].wincol  ==  DKWHITE)  II 

(WindList[Acdve_win].wincol  —  LTWHITE))  && 

(WindList[Active_win). winmode  —  REPLACE)) 
PenPat(black); 


else 

begin 


switch  (newpattem) 
begin 


case  HEAVYHATCH: 
PenPat(dkGray); 
break; 

case  HATCH: 

PenPat(gray); 

break; 

case  LTHATCH: 

PenPat(ltGiay); 

break; 

case  EMPTY: 

PenPat(  white); 
break; 


default: 


PenPat(black); 

break; 


WindList[Active_win].winpat  =  newpattem; 
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/*  set_xfer_mode:  function  which  will  set  the  mode  tor  drawing  into 
/*  the  active  window. 

/* 


State 

set_xfer_mode(newmode) 

Mode_id  newmode; 


begin 

if  ((WindList[Active_win].wincol  ==  DKWHITE)  II 

(WindList[Active_win].wincol  ==  LTWHITE)) 

begin 


switch  (newmode) 
begin 

case  TRANSPAR: 

PenMode(patBic); 

TextMode(srcBic); 

break; 

case  XOR: 

PenMode(patXor); 

TextMode(srcXor); 

break; 

case  REVTRANS: 

PenMode(notPatBic); 

TextMode(srcBic); 

break; 


default: 

PenMode(notPatCopy); 

TextMode(srcBic); 

PenPat(black); 

break; 

end 

end 

else 

begin 


switch  (newmode) 
begin 

case  TRANSPAR: 

PenMode(patOr); 

TextMode(srcOr); 

break; 

case  XOR: 

PenMode(patXor); 

TextMode(srcXor); 

break; 
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case  REVTRANS: 

PenMode(notPatOr); 

TextMode(srcOr); 

break; 

default: 

PenMode(patCopy); 

TextMode(srcOr), 

break; 

end 

set_pattem(WindList[Active_win].winpat); 


WindList[Active_win].winmode  =  newmode; 
end 


/* . . . . . */ 

/*  re;_wu!cvr:  Function  which  sets  the  global  color  for  drawing.  */ 
/* . — - .  - . */ 

State 

set_color(newcolor) 

Int  newcolor, 

begin 

Int  theColor; 


switch  (newcolor) 
begin 

case  LTBLACK: 
case  DKBLACK: 
theColor  = 
break; 

case  LTWHITE: 
case  DKWHTTE: 
theColor  - 
break; 
case  LTRED: 
case  DKRED: 

theColor  = 
break; 

case  LTGREEN: 
case  DKGPvEEN: 
theColor  = 
break; 
case  LTBLUE: 
case  DKBLUE: 
theColor  = 
break; 

case  LTCYAN: 


blackColor, 


whiteColor; 


red  Color; 


green  Col  or; 


blueColor; 


case  DKCYAN: 

theColor  =  cyanCoIor; 
break; 

case  LTYELLOW: 
case  DK  YELLOW: 

theColor  =  yellowColor; 
break; 

case  LTMAGENTA: 
case  DKMAGENTA: 

theColor  =  magentaColor, 
break; 
default.break; 

end 

ForeColor(  theColor); 

WindList[Active_win].wincol  =  newcolor, 
end 


/*- . .  .  */ 

/*  get_active:  Function  which  returns  the  Id  of  the  active  window.  */ 
/* . . . -—*/ 


Window_id  get_active() 
begin 

retum(Active_win); 

end 


/* . */ 

/*  drawline:  Function  which  draws  a  line  in  the  currently  active  window.*/ 

/*  Input  coordinates  are  relative  to  the  top  left  hand  comer  of  the  */ 
/*  active  window.  */ 

/* . .  . */ 


State 

drawline(St_pt,End_pt) 

Point  *St_pt,*End_pt; 

begin 

MoveTo((*St_pt).h,(*St_pt).v); 

LineTo((*End_pt).h,(*End_pt).v); 

end 


/* . - .  - - - - - */ 

/*  drawrect:  Function  to  draw  the  outline  of  a  rectangle  in  the  active  */ 

/*  window.  The  coordinates  of  the  input  rectangle  are  asumed  to  be  */ 

/*  relative  to  the  top  left  comer  of  the  active  window's  work  area.  */ 

/* - - - - - - */ 

State 

drawrect(In_rect) 


Reel  *In  rect; 
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FrameRect(In  rect); 


end 


/*--- - - - - - - */ 

/*  drawellipse:  Function  which  draws  an  ellipse  within  the  area  of  the  */ 
/*  active  window  specified  by  the  input  rectangle.  The  coordinates  */ 

I*  of  the  input  rectangle  are  assumed  to  be  relative  to  the  top  left  */ 

/*  comer  of  the  work  area  of  the  active  window.  */ 

/* . . - - - - ----- . */ 


State 

drawellipse(In_rect) 

Rect  *In_rect; 


begin 


FrameOval(In_rect); 


end 


/* . - . - . - . */ 

/*  draw  arc:  Function  which  draws  an  elliptical  arc  between  the  two  */ 
/*  input  angles  (begang  and  endang)  specified  and  within  the  */ 

/*  rectangular  area  of  die  active  window  specified.  The  input  */ 

/*  rectangle  is  assumed  to  be  relative  to  the  top  left  comer  of  the  */ 
/*  work  area  of  the  active  window.  */ 

/* . . - . */ 


State 

drawarc(R,begang,endang) 

Rect  *R; 

Int  begang, endang; 


begin 

begang  =  (begang/10); 
endang  =  (endang/10); 

FrameArc(R,begang, endang); 
end 


/* . - . . . . - . */ 

t*  drawmdrect:  Function  which  draws  the  outline  of  a  rounded  rectangle  *1 
f*  within  the  specified  rectangular  area  of  the  active  window.  */ 

/* . . . . . */ 


State 

drawrndrctdn  rect) 


State 

fillarc(R,begang,endang) 

Rect  *R; 

Int  begang,endang; 


begin 

begang  =  (begang/10); 
endang  =  (endang/10); 

PaintArc(R.begang,endang); 

end 


/* . ------ - - - - - */ 

/*  fillmdrect:  Function  which  fills  the  outline  of  a  rounded  rectangle  */ 

/*  within  the  specified  rectangular  area  of  the  active  window.  */ 

/* - - - - */ 


State 


fillmdrct(In_rect) 

Rect 

*In_rect; 

begin 

Int 

width  .height; 

width  =  RR  WIDTH; 
height  =  RR  HEIGHT; 


PaintRoundRect(In_rect,width,height); 

end 


/* 

/* 

/* 

/* 


get_color:  Function  which  returns  the  drawing  color  of  the  active 
window. 


*/ 

*/ 

*/ 

■*/ 


Color_id 

get_color() 

begin 

return  (WindList[Active_win].wincol); 
end 

/* . ----- - - - - */ 

f*  get_pattem:  Function  which  returns  the  drawing  pattern  of  the  active  */ 
I*  window.  */ 

/*-- - - - - - V 


Pattem_id 

get_pattem() 

begin 

retum(WindList[Active_win].winpat); 
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/* .  */ 

/*  get_xfer_mode:  Function  which  returns  the  drawing  transfer  */ 
/*  mode  of  the  currently  active  window.  */ 

/*--- .  . . .  */ 

Mode_id 

get_xfer_mode() 

begin 

re  turn  (WindList[Active_win].  winmode); 
end 


/* - - - */ 

/*  txtpen:  Function  which  sets  the  location  where  */ 

/*  the  next  call  to  drawchar  or  drawstring  will  place  */ 

/*  that  string  in  the  active  window.  */ 

/* . .  *1 


State 

txtpen(inpt) 

Point  *inpt; 

begin 

copypt(*inpt,&(WindList[Active_win].Txtpen»; 

end 


/* . - . - . */ 

/*  set_txtpen:  Function  which  returns  the  location  where  */ 
/*  the  next  call  to  drawchar  or  drawstring  will  place  */ 

/*  that  string  in  the  active  window.  */ 

/* .  . */ 

State 

set_txtpen(pen) 


Point  *pen; 

begin 

copypt(WindList[  Acti  ve_win]  .T  xtpen,pen); 
end 


/* - - - - : . . . . */ 

/*  drawstring:  Function  which  draws  the  input  string  into  the  active  */ 

/*  window.  Note  that  at  present,  the  Macintosh  Monaco  font  is  */ 

/*  used  (see  the  initialization  in  set_new_window)  and  the  string  */ 

/*  drawing  transfer  modes  are  limited  to  transparent  and  xor  for  */ 

/*  the  time  being.  */ 

/*  . --*/ 


. « 


1 


■ 


I 


State 

drawstring(strptr) 

Char  strptr[]; 

begin 

Char  *newstrptr, 

Char  tempstr[250]; 

Int  length; 

length  =  strlen(strptr); 
strcpy(tempstr,strptr); 

*newstrptr  =  CtoPstr(tempstr); 

MoveTo(WindList[Active_win].Txtpen.h,WindList[Active_win].Txtpen.v); 

DrawString(newstrptr); 

GetPen(&(WindList[Active_win].Txtpen)); 

end 


/*- . - . - . */ 

/*  drawchar:  Function  which  draws  the  input  character  into  the  active  */ 

/*  window.  Note  that  at  present,  the  Macintosh  Monaco  font  is  */ 

/*  used  (see  the  initialization  in  set_new_window)  and  the  string  */ 

/*  drawing  transfer  modes  are  limited  to  transparent  and  xor  for  */ 

/*  the  time  being.  */ 

I*  */ 

drawchar(inchr) 

Char  inchr, 

begin 

MoveTo(WindList[Active_winj.Txtpen.h,WindList[Active_win].Txtpen.v); 

DrawChar(inchr); 

GetPen(&(WindList[Active_win].Txtpen)); 

end 


/* - - - - - - - 

/*  get_wchar:  Function  which  returns  the  width  of  the  characters  being 
/*  drawn  onto  the  screen.  This  function  assumes  that  a  Macintosh 

/*  fixed  width  font  (such  as  Monaco)  is  used  for  the  interface. 


■*/ 

*1 

*/ 

*/ 

■*/ 


Int 
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get_wchar() 

begin 

Fontlnfo  info; 

Int  height; 

GetFontInfo(&info); 

retum(info.widMax); 


end 


/* . . .  - - -  */ 

/*  get_hchar:  Function  which  returns  the  width  of  the  */ 

/*  characters  being  drawn  onto  the  screen.  */ 

/* -  - - */ 


Int 

get_hchar() 

begin 

Fontlnfo  info; 

Int  height; 

GetFontInfo(&info); 

height  =  info.ascent  +  info.descent  +  info.leading; 
return  (height); 


end 


/* 


*/ 


/*  close_window:  Function  which  permanently  closes  the  specified  */ 


/*  window  anddeallocates  its  window  record.  */ 

/* . */ 


State 

close__window(Id) 

Window_id  Id; 


begin 

Int  Recnum; 


/*  determine  if  the  window  id  refers  to  */ 
/*  a  declared  window  */ 

Available_win[Id]  =  true; 

/*  if  so,  dispose  of  it  */ 


hide_window(Id); 

CloseWindow(WindList[Id].Winhandle);  /*user  w  record  storage*/ 


e; 


r  update_win:  Function  which  sets  the  system  into  the  update  window 
/*  mode.  In  this  mode,  drawing  will  be  limited  to  the  visible  region 
f*  of  the  window  to  be  updated  (as  identified  by  the  ID  number  input) 
/*  to  the  function.  When  given  an  rectangular  area  to  update,  the 
/*  update  region  will  be  replaced  by  this  rectangle.  Input  of  an 
I*  empty  rectangle  signifies  that  the  update  is  in  responce  to  a 
/*  system  generated  update  event.  The  programmer  should  not  change 
/*  the  rectangle  provided  with  the  update  event  (by  the  event  manager) 
/*  but  pass  it  on  unmodified  to  this  function. 


Bool  update_win(ID,Up_rct,Dr_rct) 

Int  ID; 

Rect  *Upjrct,*Dr_rct; 


begin 


WindowPtr  tempport; 

GetPort(&tempport); 

SetPort(W IndList  [  ID  ] .  Winhandle); 

/*  If  the  input  rectangle  is  not  empty  indicating  */ 

/*  that  the  user  is  not  responding  to  a  system  */ 

/*  update  event,  make  the  input  rectangle  the  */ 

/*  update  region. 

*/ 

if  (!EmptyRect(Up_rct)) 
begin 

ValidRect(&(WindList[ID].Workwin)); 

InvalRect(Up_rct); 

end 

if((!EmptyRgn(WindList[ID].Wdeffec.updateRgn))  &&  (!Update„in_prog)) 
begin 

copyrect(WindList[ID].Workwin,Dr_rct); 

SetOrigin(WindList[ID]  Wholewin.left, 

WindListfIDJ.Wholewin.top); 

ClipRect(&(WindList[ID].Wholewin)); 

DrawControls(WindList[ID].  Winhandle); 

SetOrigin(WindList[ID].Workwin.left, 

WindList[ID].Workwin.top); 
ClipRect(&(WindList[ID].  Work  win)); 

Update_in_prog  =  TRUE; 

Last_active  =  Acdve_win; 
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Active_win  =  ID; 

BeginUpdate(WindList[ID].Winhandle); 

EraseRgn((*WindList[ID].Winhandle).visRgn); 

retumfTRUE); 

end 

else 

begin 

SetPort(tempport); 

Update_in_prog  =  FALSE; 

SetRect(Dr_rct,0,0,0,0); 

retum(FALSE); 

end 

end 

/*- . . .  — . */ 

/*  next_update:  A  dummy  function  in  the  Macintosh  implementation  */ 
/*  which  always  returns  FALSE.  */ 

/* . - . . . - . */ 

Bool  next_update(Up_rct,Dr_rct) 

Rect  *Up_rct,*Dr_rct; 


I 


< 


( 


t 


begin 

SetRect(Dr_rct,0, 0,0,0); 
retum(FALSE); 


/* . */ 

/*  end_update:  proced'ire  to  end  the  update  mode  and  restore  the  */ 
/*  clip  area  to  match  the  active  (topmost)  window.  */ 

/* . . - . — . */ 


State  end_update() 
begin 

if(Update_in_prog) 

begin 

EndUpdate(WindList[Active_win].Winhandle); 
Active_win  =  Last_active; 
SetPort(WindList[Active_winJ.Winhandle); 
Update_in_prog  =  FALSE; 
end 
end 


/* . - . - . - . — - - - - . */ 

/*  hscroll:  Function  which  scrolls  the  content  area  of  the  active  window  */ 
/*  by  the  number  of  "pixels"  specified  by  num.  If  the  num  is  */ 

I*  positive,  the  region  will  move  to  the  left,  and  to  the  right  if  */ 

/*  negative.  */ 

/* . — - .  . — . - . . . */ 


State  hscroll(num,Up_rect) 
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Int 

Rect 


num; 

*Up_rect; 


begin 


RgnHandle  Temprgn; 

SetRect(Up_rect,0,0,0,0); 

if(num  !=  0) 

begin 

Temprgn  =  NewRgn(); 

ScrollRect(&(WindList[Active_win].Workwin),-nurn,0, Temprgn); 

OffsetRect(&(WindList[Active_win].Workwin),num,0); 

copyrect(WindList[Active_win].Workwin,Up_rect); 

if(num  >  0) 

(*Up_rect).left  =  (*Up_rect). right  -  num; 
else 

(*Up_rect).right  =  (*Up_rect).left  -  num; 

SetOrigin(WindList[Active_win].Workwin.left, 

WindList[Active_win].Workwin.top); 

ClipRect(&(WindList[Active_win].Workwin)); 

DisposeRgn(Temprgn); 

end 

end 


/* . *! 

/*  vscroll:  Function  which  scrolls  the  content  area  of  the  active  window  */ 
/*  by  the  number  of  "pixels"  specified  by  num.  If  the  num  is  */ 

/*  positive,  the  region  will  move  up, and  down  if  negative.  */ 

/* . - . - . */ 


State  vscroll(num,Up_rect) 

Int  num; 

Rect  *Up_rect; 

begin 


RgnHandle  Temprgn; 

SetRect(Up_rect,0,0,0,0); 

if(num  !=  0) 

begin 


Temprgn  =  NewRgn(); 

ScroilRect(&CWindList[Active_win].Workwin),0, -num, Temprgn); 

OffsetRect(&(WindList(Active_win].Workwin),0,num); 

copyrect(WindList[Active_win].Workwin,Up_rect); 

if(num  >  0) 
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(*Up_rect).top  =  (*Up_rect). bottom  -  num; 

else 

(*Up_rect). bottom  =  (*Up_rect).top  -  num; 

SetOrigin(WindList[Active_win].Workwin.left, 

vVindList[Active_win].Workwin.top); 

ClipRect(&(WindList[Active_win].Workwin)); 

DisposeRgn(Temprgn); 


/*  get_hscroll:  Function  which  returns  the  horizontal  scroll  bar  value. 
/* -  - - 


begin 


get_hscroll() 


if  ((WindList[Active_win], Parts  &  W_HSCROLL)  >  0) 

retum(GetCdValue(WindList{Active_win].Hscrhandle)); 

else 

retum(-l); 


/* . - . */ 

/*  get_vscroll:  Function  which  returns  the  vertical  scroll  bar  value.  */ 
/* . */ 


begin 


get_  vscrollQ 


if  ((WindList[Active_win]. Parts  &  WJVSCROLL)  >  0) 

retum(GetCtlValue(WindList[Active_win].Vscrhandle)); 

else 

retum(-l); 


/* . */ 

/*  set_hscroll:  Function  which  sets  the  value  of  the  horizontal  */ 

I*  scroll  bar  of  the  active  window  to  the  input  val.  */ 

/* . . . . . . */ 

State  set_hscroll(val) 


begin 


Int  val; 


if  (val  <  MINSCR) 

val  =  MINSCR; 
else  if  (val  >  MAXSCR) 
val  =  MAXSCR; 

if  (WindList[Active_win). Parts  &  W_HSCROLL) 
begin 
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SetOrigin(O.O); 

ClipRect(&(WindList[  Active_win]  .Whole  win)); 
SetCtlValue(WindList[Active_win].Hscrhandle,val); 
SetOrigin(WindList[Active_win].Workwin.left, 
WindList[Active_win].Workwin.top); 
ClipRect(&(WindList[Active_win].Workwin)); 
end 
end 


/* . ----- - - - - - - . *1 

/*  setjvscroll:  Function  which  sets  the  value  of  the  vertical  scroll  */ 
/*  bar  to  the  input  val.  */ 

/* . . — .  . .  .  V 


State  set_vscroll(val) 

Int  val; 

begin 

if  (val  <  MINSCR) 

val  =  MINSCR; 
else  if  (val  >  MAXSCR) 
val  =  MAXSCR; 

if  (WindList[Active_win]. Parts  &  W_VSCROLL) 
begin 

SetOrigin(0,0); 

ClipRect(&(WindList[Active_win].Wholewin)); 

SetCtlValue(WindList[Active_win].Vscrhandle,val); 

SetOrigin(WindList[Active_win].Workwin.left, 

WindList[Active_win].Workwin.top); 

ClipRect(&(WindList[Active_win].Workwin)); 

end 

end 
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/*  */ 

/*  ASWIN1.C  *i 

/*  */ 

Window_id  Active_win; 

Winrec  WindList[MAXNUMREC]; 

Window_id  Last_active;  /*  index  of  previous  active  window  */ 

Bool  Update_in_prog;  /*  is  update  occuring  */ 

/*  array  of  available  record  indices  */ 
Bool  Available_win[MAXNUMWIN]; 

/*  -  - - */ 

/* - - - */ 


State  wind_init() 
begin 

lnt  i; 

WindowPtr  Wmgr; 

GetPon(&Wmgr); 

WindList[DESK_WIN].Winhandle  =  Wmgr, 
WindList[DESK_WIN]  .Parts  =  0; 
SetPt(&(WindList[DESK_WIN].Txtpen),0,0); 

Available_win[0]  =  false; 

for  (i=l;  i  <=  MAXNUMWIN ;  i++) 

Available_win[i]  =  true; 

Active_win  =  DESK_WIN; 

Last_active  =  DESK_WIN; 

Update_in_prog  =  false; 

WindList[Active_win].wincol  =  LTBLACK; 
WindList[Active_winj.winpat  =  SOLID; 

WindListf  Active_winj.  winmode  =  REPLACE; 
end 

/* . — - - - */ 

/*  - - - - *1 

Bool  get_next_rec(ref) 

lnt  *ref; 

begin 

lnt  i; 
i  =  I; 

while  ((i  <=  MAXNUMWIN)&&(!Available_win[i])) 
i++; 

if  (i  >  MAXNUMWIN) 
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retum(false); 
else  begin 

r 

rei  —  i, 
retum(true); 
end 


end 


/ 

/*  any_visible:  Function  which  returns  TRUE  if  any  user  defined  * 
/*  window  is  visible  on  the  screen.  * 

/* . . . * 

Bool  any_visible() 
begin 


Int 


I; 


end 


for  (I  =  0;  I  <  MAXNUMWIN;  I++) 
begin 

if  (!Available_win[I]) 
begin 

if  (WindList[T].Wdeffec.visible) 
return  (TRUE); 
end 

end 

return  (FALSE); 
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/* 

/* 

/* 


WINDECL.H 


i 


*/ 

*/ 

■*/ 


#include  "Asbindl.h" 

typedef  struct 

Winrec 

/*  Window  record  structure  (abs  spec) 

*/ 

begin 

WindowRecord  Wdefrec; 

/*  Mac  window  record  structure 

*/ 

WindowPtr 

Winhandle; 

/*  Mac  window  pointer( window  Graf  port)*/ 

Rect 

Wholewin; 

/*  Rectangle  for  work  area  +  scroll  bars 

*/ 

/*  top  left  comer  always  at  (0,0)  local 

*/ 

Rect 

Workwin; 

/*  Rectangle  for  work  area  -  scroll  bars 

*/ 

/*  top  left  comer  in  sync  with  scrolled 

*/ 

/*  picture 

*/ 

Bit  16 

Parts; 

/*  spec  for  parts  included  in  window 

*/ 

ControlHandle 

HscrhandJe; 

/*  handle  for  horizontal  scroll  bar 

*/ 

ControlHandle 

Vscrhandle; 

/*  handle  for  vertical  scroll  bar 

*/ 

Point 

Txtpen; 

/*  location  to  draw  next  text 

*/ 

Mode_id 

winmode; 

/*  drawing  transfer  mode  for  window 

*/ 

Colorjd 

wincol; 

/*  drawing  color  for  window 

*/ 

Pattem_id 

winpat; 

/*  drawing  pattern  for  window 

*/ 

end  Winrec; 


I  * 

I 


/* . — . - . 

State  init_menu(fllename,barid) 


*/ 


Char  *filename; 
Int  barid; 


begin 

Handle  barhand; 

MenuHandle  deskhand; 

CtoPstr(fIlename); 

OpenResFile(filename); 
barhand  =  GetNewMBar(barid); 
if  (barhand  !=  0) 
begin 

deskhand  =  GetMenu(DESKMENU); 
AddResMenu(deskhand,  'DRVR'); 
SetMenuBar(barhand); 
DrawMenuBar(); 
end 
end 

/* . . .  . — 

/* . - . 


State  item_enable(menunum,itemnum) 
Int  menunum,itemnum; 


begin 

MenuHandle  temphand; 

temp  hand  =  GetMHandle(menunum); 
Enableltem(temphand,itemnum); 
end 


/* 

/* 


State  item_disable(menunum,itemnum) 
Int  menunum.itemnum; 


begin 


MenuHandle  temphand; 


end 


temphand  =  GetMHandle(menunum); 
Disableltem(temphand,itemnum); 


/* .  . */ 

/*  -  ---*/ 

State  item_mark(menunum,itemnum,mark) 

Int  menunum.itemnum; 

Bool  mark; 

begin 

Int  i; 


MenuHandle  temphand; 

if  (itemnum=0)  begin 

temphand  =  GetMHandle(menunum); 
for  (i=  l;i<=CountMItems(temphand);i++) 
Checkltem(temphand,i,tnark); 

end  else  begin 


temphand  =  GetMHandle(menunum); 
Checkltem(temphand,itemnum,mark); 
end 
end 

/* . */ 

/* . - . */ 

State  menu_hilight(menunum,hilight) 

Int  menunum; 

Bool  hilight; 

begin 


if  (hilight) 

HiliteMenu(menunum); 

else 


end 


HiliteMenu(O); 


/* . - . . . . . . */ 

/*  ASBIND1.H  */ 

/*-  —*/ 


#include  "Quickdraw.h” 
#include  "WindowMgr.h" 
#include  "ControlMgr.h” 
#include  "MenuMgr.h" 
#include  "EventMgr.h” 
#include  "FontMgr.h" 


#defme 

begin 

{ 

#define 

end 

} 

#define 

NIL 

0 

typedef 

int 

Bool; 

typedef 

int 

Int; 

typedef 

char 

Char; 

typedef 

long 

Loi.g; 

typedef 

unsigned  int 

Bit  16; 

#define 

State 

void 

#define 

Void 

void 

typedef 

int 

Pattem_id; 

typedef 

int 

Mode_id; 

typedef 

int 

Color_id; 

typedef 

int 

Window_id; 

#define 

W  NAME 

0X0009 

#define 

W  CLOSE 

0X0002 

^define 

W  SIZE 

0x0020 

#define 

W  HSCROLL 

OxOEOO 

#define 

W_VSCROLL 

0x0  ICO 

#define 

INVAL  WIN 

-1 

#deFme 

DESKJWIN 

0 

#define 

MAXNUMWIN  7 

#define 

MAXNUMREC  8 

#define 

SOLID 

1 

#define 

HEAVYHATCH  2 

#define 

HATCH 

3 

#defxne 

LTHATCH 

4 

^define 

EMPTY 

5 

#define 

LTWHTTE 

0 

#define 

LTBLACK 

1 

#define 

LTRED 

2 

#define 

LTGREEN 

3 

#deFine 

LTBLUE 

4 

#define 

LTCYAN 

5 

#define 

LTYELLOW 

6 

#define 

LTMAGENTA  7 

#define 

DKWHITE 

8 

#define 

DKBLACK 

9 

#define 

DKRED 

10 

#define 

DKGREEN 

11 

#define 

DKBLUE 

12 

#define 

DKCYAN 

13 

#define 

DKYELLOW 

14 

#define 

DKMAGENTA 

15 

#define 

REPLACE 

1 

#define 

TRANSPAR 

2 

#defme 

XOR 

3 

#define 

REVTRANS 

4 

#define 

FALSE 

0x0000 

#define 

TRUE 

0x0001 

#define 

POINTER(x) 

(int)(x) 

#define 

ASMAINO 

main() 

typedef 

struct  Evtmsg 

begin 

int 

type; 

Window_id  winid; 

Rect 

evrec; 

Point 

evpoint; 

int 

scrpart; 

int 

scrposn; 

int 

scrmoved; 

char 

keystroke; 

int 

mod; 

int 

mtitle; 

int 

mitem; 

end 

Evtmsg; 

^define 

EVTTYPE 

Message,  type 

#define 

EVTWINDOW 

Message. winid 

#define 

EVTRECT 

Message.evrec 

#defuie 

EVPOINT 

Message.evpoint 

#define 

EVTSCRPART 

Message.scrpart 

#deftne 

EVTSCRPOSN 

Message,  scrposn 

#define 

EVTSCRMOVE 

Message.scrmoved 

#define 

EVTKEY 

Message.keystroke 

#define 

EVTMOD 

Message. mod 

#define 

EVTMTITLE 

Message.mtitle 

#deftne 

EVTMUEM 

Message.mitem 

#define 

REDRAW 

0 

#deftne 

TOPPED 

1 

#define 

CLOSEWIN 

2 

#deFine 

SCROLLBAR 

3 

#define 

MOUSEDOWN 

4 

Ill 


#define 

#define 

#define 


KEYBOARD 

MOUSEUP 

MENUHIT 


5 

6 
7 


#defxne  V_PAGEUP  0 

#define  V_PAGEDOWN  1 

#define  V_ROWUP  2 

#define  V_ROWDOWN  3 

#define  H_PAGEUP  4 

#defuie  H_PAGEDOWN  5 

^define  H_ROWUP  6 

#define  H_ROWDOWN  7 

#define  V_THUMB  8 

^define  H_THUMB  9 

#define  MINSCR  0 

#defme  MAXSCR  1000 

typedef  int  Menujd: 

#defme  DESKMENU  32767 

#define  RRHEIGHT  15 

#define  RR  WIDTH  15 

#define  NUL_CHR  ’\0' 

^define  CARR_RET  OxOD 

^define  BACK_SP  0x08 

#define  BLANK  0x20 


/*  */ 
/*  ASBIND.H  (for  Demo.c  use)  */ 

/* .  ---*/ 


#define  begin  { 

#deflne  end  } 

typedef  struct  Point 
begin 

int  v,h; 
end 
Point; 

typedef  struct  Rect 
begin 

Point  topLeft; 
Point  botRight; 
end 
Rect; 


typedef 

int 

Bool; 

^define 

Void 

/**/ 

#define 

State 

1**1 

typedef 

int 

Int; 

typedef 

long 

Long; 

typedef 

char 

Char, 

typedef 

unsigned  int 

Bitl6; 

typedef 

int 

Patterned; 

typedef 

int 

Mode, 

.id; 

typedef 

int 

Color_id; 

typedef 

int 

Window_id; 

typedef 

int 

Menu. 

.id; 

#define  W.NAME  0x0009 

#define  W_CLOSE  0X0002 

#define  W_SIZE  0x0020 

#defme  W_HSCROLL  OxOEOO 

#defuie  W_VSCROLL  0X01  CO 

#define  INVAL_WIN  -1 

^define  DESK_WIN  0 

#define  MAXNUMWIN  7 

#deftne  SOLID  1 

#define  HEAVYHATCH  2 

#define  HATCH  3 

#define  LTHATCH  4 

#define  EMPTY  5 


#define 


LTWHTTE 


0 
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#define 

LTBLACK 

1 

#define 

LTRED 

2 

#define 

LTGREEN 

3 

#define 

LTBLUE 

4 

#define 

LTCYAN 

5 

#define 

LTYELLOW 

6 

#defme 

LTMAGENTA 

7 

#define 

DKWHITE 

8 

#define 

DKBLACK 

9 

#define 

DKRED 

10 

#define 

DKGREEN 

11 

#define 

DKBLUE 

12 

#define 

DKCYAN 

13 

#define 

DKYELLOW 

14 

#defme 

DKMAGENTA 

15 

#define 

REPLACE 

1 

#define 

TRANSPAR 

2 

#define 

XOR 

3 

#define 

REVTRANS 

4 

#include 

"portab.h" 

#define 

ASMAINO 

GEMAINO 

typedef 

begin 

struct  Evtmsg 

int 

type; 

in  t 

winid; 

Rect 

evrec; 

Point 

evpoint; 

int 

scrpart; 

int 

scrposn; 

int 

scrmoved; 

char 

keystroke; 

int 

mod; 

int 

mtitle; 

int 

mitem; 

end  Evtmsg; 

extern  Evtmsg  Message; 

#define 

EVTTYPE 

Message,  type 

#deftne 

EVTWLNDOW 

Message. winid 

^define 

EVTRECT 

Message. evrec 

#define 

EVPOINT 

Message.evpoint 

#define 

EVTSCRPART 

Message. scrpart 

^define 

EVTSCRPOSN 

Message. scrposn 

#define 

EVTSCRMOVE 

Mes  sage .  scrmoved 

#deftne 

EVTKEY 

Message. keystroke 

#defme 

EVTMOD 

Message. mod 

#deftne 

EVTMTITLE 

Message.mtitle 

#define 

EVTMITEM 

Message.mitem 

#defme 

REDRAW 

0 

#define 

TOPPED 

1 

#define 

CLOSEWIN 

2 

#define 

SCROLLBAR 

3 

#define 

MOUSEDOWN 

4 

#define 

KEYBOARD 

5 

#define 

MOUSEUP 

6 

#define 

MENU  HIT 

7 

#define 

V  PAGEUP 

0 

#define 

V  PAGEDOWN 

1 

#define 

V  ROWUP 

2 

#define 

V  ROWDOWN 

3 

#define 

H  PAGEUP 

4 

#define 

H  PAGEDOWN 

5 

#define 

H  ROWUP 

6 

#define 

H  ROWDOWN 

7 

#define 

V  THUMB 

8 

#define 

H_THUMB 

9 

#define 

MINSCR 

0 

#define 

MAXSCR 

1000 

#define 

NUL  CHR 

\0' 

#define 

CARR  RET 

OxOD 

#define 

BACK  SP 

0x08 

^define 

BLANK 

0x20 

/* . - - - */ 

/*  DEMO.H  (for  Demo.c  use)  */ 

/* . . . - . — . - . */ 


#define  INVALID  -1 

#define  TEST5BAR  0  /*  TREE  */ 

#define  MNDRAW  4  /*  OBJECT  in  TREE  #0  */ 

#define  ITOUTLN  20  /*  OBJECT  in  TREE  #0  */ 
#define  ITFILL  2 1  /*  OBJECT  in  TREE  #0  */ 

#define  ITRECT  23  /*  OBJECT  in  TREE  M  V 

#define  ITARC90  27  J*  OBJECT  in  TREE  #0  */ 

#define  ITARC180  26  /*  OBJECT  in  TREE  #0  */ 

#define  ITARC270  25  /*  OBJECT  in  TREE  #0  */ 

^define  ITRNDRCT  28  /*  OBJECT  in  TREE  W  */ 

#define  ITSHAPE  30  /*  OBJECT  in  TREE  #0  */ 

#define  ITLINE  3 1  /*  OBJECT  in  TREE  #0  */ 

#define  MNMODE  5  /*  OBJECT  in  TREE  #0  */ 

^define  ITREPLCE  33  /*  OBJECT  in  TREE  #0  */ 

#define  ITTRANS  34  /*  OBJECT  in  TREE  #0  */ 

#define  ITXOR  35  /*  OBJECT  in  TREE  #0  */ 

^define  ITREVTR  36  /*  OBJECT  in  TREE  #0  */ 

#define  MN COLOR  6  /*  OBJECT  in  TREE  #0  */ 

#define  ITDARK  38  /*  OBJECT  in  TREE  #0  */ 

#define  ITLIGHT  39  /*  OBJECT  in  TREE  #0  */ 

^define  ITBLACK  4 1  /*  OBJECT  in  TREE  M  */ 

^define  ITWHITE  42  /*  OBJECT  in  TREE  #0  */ 

^define  ITRED  43  /*  OBJECT  in  TREE  #0  */ 

#defme  ITGREEN  44  /*  OBJECT  in  TREE  #0  */ 

#define  ITBLUE  45  /*  OBJECT  in  TREE  #0  */ 

^define  ITCYAN  46  /*  OBJECT  in  TREE  #0  */ 

^define  ITYELLOW  47  /*  OBJECT  in  TREE  #0  */ 

^define  ITMAGENT  48  /*  OBJECT  in  TREE  #0  */ 

^define  MNPATTRN  7  /*  OBJECT  in  TREE  #0  */ 

^define  ITSOLID  50  /*  OBJECT  in  TREE  #0  */ 

^define  ITHVYHT  5 1  /*  OBJECT  in  TREE  #0  */ 

^define  ITHATCI  I  52  /*  OBJECT  in  TREE  #0  */ 

^define  ITLTHAT  53  /*  OBJECT  in  TREE  #0  */ 

#define  ITEMPTY  54  /*  OBJECT  in  TREE  #0  */ 

#define  ITELLIP  24  /*  OBJECT  in  TREE  #0  */ 

#define  DESKMENU  3  /*  OBJECT  in  TREE  #0  */ 

#define  MNWIN  8  /*  OBJECT  in  TREE  #0  */ 

^define  ITWTN 1  56  /*  OBJECT  in  TREE  #0  */ 

#define  I  TWIN 2  57  /*  OBJECT  in  TREE  #0  */ 

#define  ITWIN3  58  /*  OBJECT  in  TREE  #0  */ 

#define  ITWIN4  59  /*  OBJECT  in  TREE  #0  */ 

#define  ITWIN5  60  /*  OBJECT  in  TREE  #0  */ 
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#define  ITWIN6 
#define  ITW1N7 


6 1  /*  OBJECT  in  TREE  #0  */ 

62  /*  OBJECT  in  TREE  #0  */ 


/*  */ 

/*  ASPRIM.C  */ 

/*  */ 

#include  "asbind.h" 

#include  "asprimi.c” 

/* .  . . . . */ 

/*  Set_point:  given  two  integers  which  represent  the  x  and  y  */ 
/*  coordinates  (the  horizontal  and  vertical  positions  of  *1 
f*  the  point  respectively),  the  function  returns  a  point.  */ 

/* . . . .  . */ 

State 

set_point(x,y,pt) 

Int  x,y; 

Point  *pt; 


begin 

pt  ->  h  =  x; 
pt  ->  v  =  y; 
end 


/* . — . */ 

/*  get_x_coord:  Function  which  returns  the  horizontal  */ 
/*  coordinate  of  the  input  point  pt.  */ 

/* . V 

Int 

get_x_coord(pt) 

Point  *pt; 


begin 

return  (pt  ->  h); 
end 


/* .  . */ 

/*  get_y_coord:  Function  which  returns  the  vertical  */ 

/*  coordinate  of  the  input  point  pt.  */ 

/* . . . --*/ 

Int 

get_y_coord(pt) 

Point  *pt; 


begin 

retum(pt  ->  v); 
end 


/* . - — . - - - - - - - - */ 

/*  set_rect:  Function  which,  given  two  points,  determines  the  smallest  */ 
f*  rectangle  that  those  points  could  define  and  sets  the  top  left  */ 

/*  and  bottom  right  points  of  the  output  rectangle  r  to  correspond  *1 
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/*  to  that  rectangle.  */ 

/* . . . . */ 

State 

set_rect(pl,p2,r) 

Point  *pl; 

Point  *p2; 

Rect  *r. 


I 


I 


a 


« 


begin 


/*  case  1  p2  is  to  the  right  and  below  pi  */ 

if  (rt_below(p2,pl)) 

assign_rect((pl  ->  h),(pl  ->  v),(p2  ->  h),(p2  ->  v)/); 


/*  case  2  pi  is  to  the  right  and  below  p2  *■/ 
else  if  (rt_below(pl,p2)) 

assign_rect((p2  ->  h),(p2  ->  v),  (pi  ->  h),(pl  ->  v),r); 


CuSC  3  pi  is  to  the  right  and  above  p2  */ 

else  if  (rt_above(pl,p2)) 

assign_iect((p2  ->  h),(pl  ->  v),(pl  ->  h),(p2  ->  v),r); 


/*  case  4  p2  is  to  the  right  and  above  p  1  */ 
else  if  (rt_above(p2,pl)) 

assign_rect((pl  ->  h),(p2  ->  v),(p2  ->  h),(pl  ->  v),r); 


end 


i* 

/ 


/*  set_topLeft:  Function  which  returns  the  top  left  point  of  the  input  */ 

/*  rectangle  r  as  p.  */ 

/* . . */ 

State 

set_topLeft(r,p) 

Rect  *r, 

Point  *p; 


begin 

(p  ->  h)  =  (r  ->  topLeft).h; 
(p  ->  v)  =  (r  ->  topLeft).v; 
end 
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/* -  - - — . *1 

/*  get_botRight:  Function  which  returns  the  bottom  right  point  of  the  */ 
f*  input  rectangle  r  as  p.  */ 

/* . ----- . . . . . . */ 

State 

set_botRight(r,p) 

Rect  *r. 

Point  *p; 


« 


begin 
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1 


« 


< 


i 


4 


U 


4 


(p  ->  h)  =  (r  ->  botRight),h; 
(p  ->  h)  =  (r  ->  botRight),v; 
end 


/* . . . -  - . */ 

/*  pt_in_rect:  Function  which  determines  if  the  input  point  p  is  within  */ 
/*  or  on  the  border  of  the  input  rectangle  r.  */ 

/* - - - - - - *1 

Bool 

pt_in_rect(p,r) 

Point  *p; 

Rect  *r, 


begin 

if  ((rt_below(p,&(r  ->  topLeft)))  &&  (lf_above(p,&(r  ->  botRight)))) 
re  turn  (TRUE); 
else 

retum(FALSE); 

end 


/* . */ 

/*  set_insect_rect:  Function  which  determines  the  rectangle  */ 

/*  which  is  formed  by  the  intersection  of  the  input  rectangles  rl  */ 

/*  andr2.  The  resulting  rectangle  is  returned  in  tint.  If  the  */ 

/*  intersection  is  empty,  the  rectangle  returned  in  rint  will  be  */ 

/*  defined  by  a  top  left  and  bottom  right  point  of  (0,0).  */ 

/* . - . ----- . — . */ 

State 

set_insect_rect(r  1  ,r2,rint) 

Rect  *rl; 

Rect  *r2; 

Rect  *rint; 


begin 

if  (insect_rect(rl,r2)) 
begin 

if  ((rl  ->  topLeft). h  >=  (r2  ->  topLeft).h) 

(rint  ->  topLeft).h  =  (rl  ->  topLeft).h; 

else 

(rint  ->  topLeft). h  =  (r2  ->  topLeft).h; 

if  ((rl  ->  topLeft).v  >=  (r2  ->  topLeft).v) 

(rint  ->  topLeft).v  =  (rl  ->  topLeft).v; 

else 

(rint  ->  topLeft).v  =  (r2  ->  topLeft).v, 

if  ((rl  ->  botRight).h  <=  (r2  ->  botRight).h) 

(rint  ->  botRight).h  =  (rl  ->  botRight).h; 

else 

(rint  ->  botRight).h  =  (r2  ->  botRight).h; 
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if  ((rl  ->  botRight).v  <=  (r2  ->  botRight).v) 

(rint  ->  botRight).v  =  (rl  ->  botRight).v; 
else 

(rint  ->  botRight).v  =  (r2  ->  botRight).v; 


assign_rect(0, 0,0,0  jint); 


/*  in  sectored:  Function  which  determines  whether  the  two  input 
/*  rectangles  rl  and  r2  intersect. 

I* . - - - 

Bool 

insect_rect(rl,r2) 

Rect  *rl; 

Rect  *r2; 


begin 


if  (((rl  ->  topLeft).h  >  (r2  ->  botRight).h)  II 

((r2  ->  topLeft).h  >  (rl  ->  botRight).h)) 
retum(FALSE); 

else  if  (((rl  ->  topLeft).v  >  (r2  ->  botRight).v)  II 
((r2  ->  topLeft).v  >  (rl  ->  botRight).v)) 
retum(FALSE); 


retum(TRUE); 


/*  equalpt:  Function  which  determines  if  the  two  input  points  are  the 
/*  same  point. 

/*— . . . . . - 


Bool 

equalpt(pl,p2) 

Point  *pl; 
Point  *p2; 


begin 


if  (((pi  ->  h)  ==  (p2  ->  h))  &&  ((pi  ->  v)  — 
retum(TRUE); 
else 

retum(FALSE); 


=  (p2  ->  v))) 
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/* . . . — .  . -*/ 

l*  equalrect:  Function  which  determines  if  the  two  input  rectangles  are  */ 
/*  same  rectangle.  *1 

/*«— .  . . . . */ 

Bool 

equalrect(rl,r2) 

Rect  *rl; 

Rect  *r2; 


begin 

if  ((equalpt(&(rl  ->  topLeft),&(r?  ->  topLeft)))  && 

(equalpt(&(rl  ->  botRight),&(r2  ->  botRight)))) 


end 


else 


re  turn  (TRUE); 
retum(FALSE); 


/* . . — . */ 

/*  copypt:  Function  which  copies  the  source  point  into  the  destination  */ 
/*  point.  */ 

/* . . . */ 

State 

copypt(source,dest) 


Point  *source,*dest; 

begin 

(*dest).h  =  (*source).h; 
(*dest).v  =  (*source).v; 
end 


/* .  - . . . */ 

/*  copyrect:  Function  which  copies  the  source  rectangle  into  the  */ 

/*  destination  rectangle.  */ 

. . - . - . . . . . — - ■*/ 

State 

copyrect(source,dest) 


Rect  ^  source, *dest; 

begin 

copypt(&((*source).topLeft),&((*dest).  topLeft)); 
copypt(&((*source).botRight),&((*dest).botRight)); 
end 
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/* . -  ----- . *1 

/*  ASPRIMI.C  *1 

I* .  -  . -  -  . */ 


/* .  . . . .  */ 

/*  rt_below:  Function  which  determines  whether  the  point  pi  is  to  the  */ 
/*  right  of  and  below  the  point  p2.  Note:  the  larger  the  h,  the  */ 

/*  farther  right  the  point  is  and  the  larger  the  v  the  farther  */ 

/*  below  the  point  is.  */ 

/*-- . - - -  -  - - */ 

Bool 

rt_below(pl,p2) 

Point  *pl; 

Point  *p2; 


begin 

if  (((pi  ->  h)  >=  (p2  ->  h))  &&  ((pi  ->  v)  >=  (p2  ->  v))) 
return  (TRUE); 
else 

retum(FALSE); 

end 


/* . .  . */ 

/*  rt_above:  Function  which  determines  whether  the  point  pi  is  to  the  */ 
/*  right  and  above  point  p2.  */ 

I* . *i 

Bool 

rt_above(pl,p2) 

Point  *pl; 

Point  *p2; 


begin 

if  (((pi  ->  h)  >=  (p2  ->  h))  &&  ((pi  ->  v)  <=  (p2  ->  v))) 
re  turn  (TRUE); 
else 

retum(FALSE); 

end 


/* - - - - - - 

/*  lf_above:  Function  to  determine  if  point  pi  is  to  the  left  and  above  */ 

/*  point  p2.  */ 

/* -  - - - */ 

Bool 

lf_above(pl,p2) 

Point  *pl; 

Point  *p2; 


begin 

if  (((pi  ->  h)  <=  (p2  ->  h))  &&  ((pi  ->  v)  <=  (p2  ->  v») 
retum(TRUE); 
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else 


end 


retum(FALSE); 


/* . . .  - . 

/*  lf_below:  Function  to  determine  if  point  pi  is  to  the  left  and  below 
/*  point  p2. 


I* 

Bool 

lf_below(pl,p2) 

Point  *pl, 
Point  *p2; 


begin 


end 


if  (((pi  ->  h)  <=  (p2  ->  h))  &&  ((pi  ->  v)  >=  (p2  ->  v))) 
retum(TRUE); 
else 

retum(FALSE); 


-*/ 

*/ 

*/ 

-*/ 


I*  assign_rect:  Function  to  assign  the  values  of  the  top  left  point  and  */ 

/*  bottom  right  point  of  the  rectangle  r.  Warning:  the  top  left  */ 

/*  point  as  determined  by  xtop  and  ytop  MUST  be  to  the  left  and  */ 

/*  above  the  bottom  right  point  as  specified  by  xbot  and  ybot.  */ 

/*  This  function  is  provided  as  a  short  form  rectangle  builder  for  */ 


/* 

/* 

/* 


ASEVT.C 


■*/ 

*/ 

■*/ 


State 


get_event() 

begin 

Bool 

Stop; 

Int 

outarr[4]; 

Int 

buffer[8]; 

Int 

temp\; 

Int 

tempy; 

Int 

mouseX; 

Int 

mouseY; 

Int 

buttonstate; 

Int 

modifiers; 

Int 

keybdretum; 

Int 

numstroke; 

U_int 

ewector, 

Stop  =  FALSE; 

while('.Stop) 

begin 


/*  look  for  a  GEM  keyboard, button  */ 

/*  or  message  event  */ 

ewector  =  evnt_multi 

(MU_KEYBD  I  MU_BUTTON  I  MU_MESAG,  /*  keyboard,button,message 
events*/ 


1, 

/*  single  button  stroke 

*/ 

0x0001, 

/*  leftmost  button 

y  ■ 

r 

button_flag. 

/*  look  for  mouse  down  or  up 

*/ 

0x0000, 

/*  return  on  exit 

*/ 

0, 

/*  empty  rect  spec 

*/ 

0, 

0, 

0, 

0x0000, 

/*  return  on  exit 

*/ 

0, 

/*  empty  rect  spec 

*/ 

0, 

0, 

0, 

ADDR(buffer), 

/*  address  of  message  buffer 

*/ 

17, 

/*  17/1000  sec  delay  for 

*/ 

00, 

f*  timer  event  (60  th  '  "c) 

*/ 

&mouseX, 

/*  X  mouse  position 

*/ 

&mouseY, 

/*  Y  mouse  position 

*/ 

&buttonstate, 

/*  button  state 

*/ 

&modifiers, 

/*  keyboard  modifiers 

*/ 
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&keybdretum,  /*  unmodified  key  code  */ 

&numstroke);  /*  number  of  button  strokes  */ 

/*  GEM  message  event  handler  */ 

wind_update(l); 

if  ((ewector  &  MU_MESAG)  ==  MU_MESAG) 
begin 

switch  (buffer[0J) 
begin 

/*  Menu  hit  event  */ 

case  MN_SELECTED: 
begin 

EVTTYPE  =  MENUHIT; 

EVTM  TITLE  =  buffer[3]; 

EVTMTTEM  =  buffer[4]; 

/*  insure  only  one  title  hilited*/ 
if  (mhilighted  >  0) 

menu_tnormal(baraddr,mhilighted,TRUE); 

mhilighted  =  EVTMTTTLE; 

Stop  =  TRUE; 
break; 

end; 

/*  Redraw  event  -  give  program  */ 
/*  rectangle  to  redraw  */ 

case  WM_REDRAW: 
begin 

windowID(buffer[3],&EVTWlNDOW); 
do_rev_map(&(Winlist[EVTWINDOW].Coordmap), 
&buffer[4],&buffer[5]); 
buffer[6]  +=  buffer[4]  -  1; 
buffer[7]  +=  buffer[5]  -  1; 

EVTTYPE  =  REDRAW; 
assign_rect(buffer[4]  ,buffer[5]  ,buffer[6] , 
buffer[7]  ,&EVTRECT); 

Stop  =  TRUE; 
break; 

end; 

f*  Topped  event  */ 

case  WM_TOPPED: 
begin 

windowID(buffer[3],&EVTWINDOW); 
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end; 


do_rev_map(&(Winlist[EVTWlNDOW].Coordmap), 

&mouseX,&mouseY); 

set_point(mouseX,mouseY,&EVPOINT); 

EVTTYPE  =  TOPPED; 

EVTMOD  =  modifiers; 

Stop  =  TRUE; 
break; 


/*  Close  box  event 


*/ 


case  WM_CLOSED: 
begin 

windowID(buffer[3],&EVTWINDOW); 
EVTTYPE  =  CLOSE  WIN; 

Stop  =  TRUE; 
break; 


end; 


/*  Scroll  bar  event  where  one 
/*  of  the  up  or  down  arrows  or 
/*  page  up  or  down  areas  was 
/*  selected. 


*/ 

*/ 

*/ 

*/ 


case  WMARROWED: 
begin 

windowID(buffer[3],&EVTWINDOW); 
EVTTYPE  =  SCROLLBAR; 
EVTSCRPART  =  buffer[4]; 

Stop  =  TRUE, 
break; 


end; 


/*  Scroll  bar  event  where  the 
/*  user  selected  the  slide  (or 
/*  thumb)  for  the  horizontal 
/*  scroll  bar. 


*/ 

*/ 

*/ 

*/ 


case  WM_HSLID: 
begin 

windowID(buffer[3]  ,&E  VTWINDOW); 
EVTTYPE  =  SCROLLBAR; 

EVTSCRPART  =  H.THUMB; 

EVTSCRPOSN  =  buffer[4]; 

EVTSCRMOVE  =  buffer[4]  - 

Winlist[EVTWINDOW].H_value; 

Stop  =  TRUE; 
break; 

end; 


/*  Scroll  bar  event  where  the  */ 

/*  user  selected  the  slide  (or  */ 

/*  thumb)  for  the  vertical  */ 
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case  WM_VSLID: 
begin 

windo  wID(buffer[  3  ]  ,&E  VTWINDOW); 
EVTTYPE  =  SCROLLBAR; 

EVTSCRPART  =  V.THUMB; 

EVTSCRPOSN  =  buffer[4]; 

EVTSCRMOVE  =  buffer(4]  - 

Winlist[E  VTWINDOW] .  V_vaiue; 

Stop  =  TRUE; 
break; 

end; 

/*  Change  the  size  of  the  window 
/*  if  the  user  has  dragged  the 
/*  grow  box. 

case  WM_SIZED  : 
begin 

windowID(buffer[3],&E  VTWINDOW); 
wind_set(buffer[3],WF_CXYWH,buffer[4], 
buffer[  5]  ,buffer[6]  ,buf  fer[  7]); 

Winlist[EVTWINDOW].defX  =  buffer[4]; 
Winlist[EVTWINDOW].defY  =  buffer[5]; 
Winlist[EVTWINDOW].defW  =  buffer[6]; 
WinUst[EVTWINDOW].defH  =  buffer[7]; 

wind_get(buffer[3],WF_WXYWH,&buffer[4], 

&buffer[5],&buffer[6],&buffer[7]); 

outarr[0]  =  buffer[4]; 

outarr[l]  =  buffer[5]; 

outarr[2]  =  buffer[4]  +  buffer[61  -  1; 

outarr[3]  =  buffer[5]  +  buffer[7]  -  1; 

vs_clip(Device,  1  ,outarr); 

break; 

end; 

/*  Move  the  window  if  the  user  */ 
/*  has  dragged  the  title  bar.  */ 

case  WM_MOVED: 
begin 

windowID(buffer[3],&E  VTWINDOW); 
wind_set(buffer[3],WF_CXYWH,buffer[4], 
buffer[5],buffer[6],buffer[7]); 

Winli  stfE  VTWINDOW]  .defX  =  buffer[4]; 
Winlist[  E  VTWINDOW]  .defY  =  buffer[5]; 
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WinIist[EVTWINDOW].defW  =  buffer[6]; 
Winlist[EVTWINDOW].defH  =  buffer[7]; 


wind_get(buffer[3]  ,WF_WXYWH,&buffer[4] , 
&buffer[5],&buffer[6],&buffer[7]); 

outarr[0]  =  buffer[4]; 

outarr[lj  =  buffer[5]; 

outarr[2]  =  buffer[4]  +  buffer[6]  -  1; 

outarr[3]  =  buffer[5]  +  buffer[7]  -  1; 

vs_clip(Device,  1  ,outarr); 

get_origin(EVTWINDOW,&tempx,&tempy); 
se  t_map  (&(Winlist[  E  VTWINDO  W]  .Coordmap )  ,tempx , 
tempy,outarr[0]  ,outarr[  1  ]); 


break; 

end; 

default:  break; 

end 

end 


/*  Case  for  mouse  down  and  */ 

/*  mouse  up  events  */ 

else  if  ((ewector  &  MU_BUTTON)  ==  MU„BUTTON) 
begin 

if  (buttonjlag  ==  LOOKMDOWN) 
begin 

EVTTYPE  =  MOUSEDOWN; 
button_flag  =  LOOKMUP; 
end 

else 

begin 

EVTTYPE  =  MOUSEUP; 
button_flag  =  LOOKMDOWN; 
end 

EVTMOD  =  modifiers; 

tempx  =  wind_find(mouseX,mouseY); 

windowID(tempx,&EVTWINDOW); 

do_rev_map(&(Winlist[EVTWINDOW],  Coordmap), &mouseX, 
&mouseY); 


Stop  =  TRUE; 

set_point(mouseX, mouse  Y,&(EVPOINT)); 
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/*  Case  for  keyboard  event  */ 

else  if  ((ewector  &  MU_KEYBD)  ==  MU_KEYBD) 
begin 

EVTTYPE  =  KEYBOARD; 

EVTKEY  =  ((Char) (key bdretum  &  0x007F)); 
EVTMOD  =  modifiers; 

Stop  =  TRUE; 

ewector  =  ewector  A  MU_KEYBD; 
end 

wind_update(0); 

end 

end 


I 


f 


4 


4 


/* - -  */ 

/*  get_mouse:  Function  which  reports  the  current  location  of  the  cursor  */ 
/*  in  the  local  coordinates  of  the  window  specified  by  Id.  */ 

/* . . .  . */ 

State 

get_mouse(Id,pt) 


Int  Id; 

Point  *pt; 

begin 

Int  x,y,  button,  mod; 

graf_mkstate(&x,&y,&button,&mod); 

do_rev_map(&(Winlist[Id].Coordmap),&x,&y); 

set_point(x,y,pt); 

end 


/* . */ 

/*  mouse_up:  Function  which  reports  of  the  mouse  button  is  up  or  not.  */ 
/*  Use  of  this  function  will  cause  the  event  manager  to  look  for  */ 

/*  the  opposite  mouse  button  state  returned  by  this  function.  This  */ 

/*  is  analogus  to  the  Mac  WaitMouseUp  function  which  unqueues  a  */ 

/*  mouse  up  event  if  detected.  *1 

/*  —  - - */ 


Bool 

mouse_up() 

begin 

Int  x,y, button, mod; 

graf_mkstate(&x,&y,&button,&mod); 
button  =  button  &  0x0001; 

if  (!  button) 
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button_flag  =  LOOKMDOWN; 

else 

button_flag  =  LOOKMUP; 
retum(!button); 


ASEVTI.C 


*/ 

*/ 

■*/ 


< 


/* 

I* 

t* 

/ 


/* . - - - - - - - */ 

/*  get_origin:  Hidden  function  which  returns  the  x  and  y  coordinates  of  */ 
/*  the  top  left  comer  of  the  work  area  (in  local  coordinates).  */ 

. . . . . _*/ 

oiaie 

get_origin(Id,x,y) 


Window_id  Id; 

Int  *x,*y; 

begin 

(*x)  =  Winlist[Id].Coordmap.Xorigin; 
(*y)  =  Winlist[Id].Coordmap.Yorigin; 
end 


/* . . . . . . . 

/*  windowld:  Hidden  function  which  matches  the  input  GEM  handle  to  an  */ 
/*  abstract  window  id  and  returns  it  in  the  Id  parameter.  The  */ 

/*  return  indicates  whether  or  not  a  successful  match  was  made.  */ 

/* .  . */ 


Bool 

windowID(handle,Id) 

Int  handle; 

Window_id  *Id; 

begin 

Int  I; 

(*Id)  =  10; 

1  =  0; 

if  (handle  ==  0) 
begin 

(*Id)  =  0; 
return  (TRUE); 
end 

while  (I  <=  8) 
begin 

if  (Alloc_win[I]  !=  0) 
begin 

if  (WinlistfAlIoc_win[I]].Winhandle  ==  handle) 
(*Id)  =  Alloc_win[l); 


end 


132 


end 


if  ((’"Id)  ==  10) 

retum(FALSE); 

else 

return  (TRUE); 
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/* 

/* 

/*■ 


ASWIN.C 


•*/ 

*/ 

*/ 


include  "ASBIND1.H” 
#include  "machine.h" 
#include  "obdefs.h” 
#include  "treeaddr.h" 
#include  "gembind.h" 
#include  "vdibind.h" 

#include  "aswini.c" 

#include  "asmenu.c" 


/* - - - */ 

f*  set_xfer_mode:  function  which  will  set  the  global  mode  for  drawing  */ 
/*  onto  the  screen.  */ 

/* . . . . . . . . */ 

State 

set_xfer_mode(newmode) 

Mode_id  newmode; 


begin 

if((newmode  <  REPLACE)  II  (newmode  >  REVTRANS)) 
newmode  =  REPLACE; 

vswr_mode(Device,newmode); 
Winlist[Active_win].winmode  =  newmode; 
end 


/* . — . - . */ 

/*  set_pattem:  Function  which  sets  the  pattern  to  be  used  to  draw  */ 

/*  and  fill  in  shapes.  */ 

/* . . . . . . . */ 

State 

set_pattem(newpattem) 


Pattem_id  newpattem; 

begin 

switch  (newpattem) 
begin 


case  HEAVYHATCH: 
begin 

vsl_type(Device,2); 

vsf_interior(Device,2); 

vsf_style(Device,7); 

Winlist[Active_win].winpat  =  newpattem; 
break; 
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end; 


case  HATCH: 
begin 

vsl_type(Device,7); 
vsl_udsty  (Device, Ox  E3  8E); 
vsf_interior(Device,2); 
vsf_style(Device,5); 

Winlist[Active_win].winpat  =  newpattem; 
break; 

end; 

case  LTHATCH: 
begin 

vsl_type  (Device, 3); 

vsf_interior(Device,2); 

vsf_style(Device,2); 

Winlist[Active_win].winpat  =  newpattem; 
break; 

end; 

case  EMPTY: 
begin 

vsl_type(Device,7); 
vsl_udsty(Device,OxOOOO); 
vsf_interior(Device,0); 
Winlist[Active_win].winpat  =  newpattem; 
break; 

end; 

default: 

begin 

vsl_type  (Device,  1 ); 
vsf_interior(Device,l ); 
Winlist[Active_win].winpat  =  SOLID; 
break; 

end; 

end 

end 


/*— . - . - - - */ 

/*  set_color:  Function  which  sets  the  global  color  for  drawing.  */ 

- - - */ 

State 

set_color(newcolor) 

Int  newcolor, 

begin 


if  ((newcolor  <  LTWHTTE)  II  (newcolor  >  DKMAGENTA)) 
newcolor  =  LTBLACK; 

vsl_color(  Device,  newcolor); 
vsf_color(Device, newcolor); 
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end 


vsLcolor(Device,newcolor); 
Winlist[Active_win].wincol  =  newcolor. 


/* . : . - - - - - - *1 

/*  sys_init:  Function  to  initialize  the  Gem  system  to  run  the  Abstract  */ 

/*  Specification  Interface  */ 

I* - - - - -*/ 

State 

sys_init() 


begin 

Int  1; 

Int  outarr[4]; 

outarr[0]  =  50; 
outarr[l]  =  50; 
outarr[2]  =  200; 
outarr[3]  =  200; 

ap_id  =  appl_init(); 

if  (ap_id  <  0) 
begin 

for(I  =  0;  I  <  -1;  I++) ; 
end 

for  (I  =  0;  I  <  10;  I++) 
work_in[I]  =  1; 

work_in[10]  =  2; 

gem_Device  =  graf_handle(&hwchar,&hhchar,&hwbox,&hhbox); 
Device  =  gem_Devicc; 

v_opnvwk(work_in,&Device,work_out); 

vsf_perimeter(Device,0); 

scm_form.mp  =  OxOL; 
graf_mouse(0,MOUSEADDR); 

wind_init(); 

se  t_x  fer_mode  (REPL  A  CE ) ; 

set_pattem(SOLID); 

set_color(LTBLACK); 


end 


/* . . . . . ----- . - . */ 

/*  sys_end:  Function  which  returns  all  allocated  resources  to  the  GEM  */ 
/*  system  on  the  end  of  the  program.  */ 
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/* . . . */ 

State 

sys_end() 

begin 

Int  I; 

for(I  =  0;  I  <  MAXNUMWIN;  I++) 
begin 

if  (Alloc_win[I]  !=  0) 
begin 

if  (Winlist[Alloc_win[I]].Visible) 

wind_close(Winlist[Alloc_win[I]].WinhandIe); 

wind_delete(Winlist[Alloc_win[I]].Winhandle); 

end 

end 

v_clsvwk(Device); 

appl_exit(); 

end 


/* .  -  . . */ 

/* . . . */ 

Window_id 

set_new_window(InitRect,Partspec,Title,is_Visible) 

Rect  *InitRect; 

unsigned  int  Partspec; 

Char  "Title; 

Bool  is_Visible; 

begin 

Bool  NoErrorFlag;  /*  no  error  encountered  */ 

Window_id  Recnum;  /*  number  of  window  record  alloc  */ 

Int  temphand;  f*  temporary  window  handle  */ 

Long  tempaddr;  /*  temporary  address  */ 

Int  haddr,  /*  high  address  of  title  */ 

Int  laddr,  /*  low  address  of  title  */ 

Int  outarr[4];  /*  input  array  to  GEM  VDI  */ 


/*  get  rid  of  unnecessary  specs  */ 

Partspec  =  Partspec  &  OxFFEB, 

NoErrorFlag  =  get_next_rec(&Recnum); 

f*  if  able  to  allocate  window  */ 

if  (!  NoErrorFlag) 

retum(INVAL_WIN); 

else 
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begin 


/*  GEM  defination  of  window 


*/ 


Winiist[Recnum].Winhandle  =  wind_create(Partspec, 

0,0,700,700); 

temphand  =  Winlist[Recnum].Winhandle; 

if  (temphand  <  DESK_WIN) 
begin 

dalloc_win(Recnum); 
retum(INV  ALJWTN); 


/*  Set  optional  window  features  */ 
t*  Set  horizontal  scroll  bar  value  */ 

if  ((Partspec  &  W_HSCROLL)  >  0) 
begin 

wind_set(temphand,WF_HSLSIZE,- 1 ,0,0,0); 
wind_set(temphand,WF_HSLIDE,0,0,0,0); 
Winlist[Recnum].H_value  =  0; 
end 


/*  Set  vertical  scroll  bar  value  */ 

if  ((Partspec  &  W_VSCROLL)  >  0) 
begin 

wind_set(temphand,WF_VSLSIZE,- 1 ,0,0,0); 
wind_set(temphand,WF_VSLIDE,0, 0,0,0); 
Winlist[Recnum].V_value  =  0; 
end 


/*  Set  Title  */ 

if  ((Partspec  &  W_NAME)  >  0) 
begin 

haddr  =  (Int)  LHIWD(ADDR(Title)); 
laddr  =  (Int)  LLOWD(ADDR(Title)); 
wind_set(temphand,WF_NAME,laddr,haddr,0.0); 
end 


/*  map  defination  rectangle  to  */ 

/*  desktop  coordinates  */ 

get_gem_rect(InitRect,&(outarr[0]),&(outarr[  1  ]),&(outarr[2]), 
&(outarr[3])); 

do_map(&(Winlist[DESK_WIN].Coordmap),&(outarr[0]), 

&(outarr[l])); 

set_point(20,20,&(Winlist[Recnum].txtpen)); 

Winlist[Recnum].defX  =  outarr[0J; 

Winlist[Recnum].defY  =  outarr[l]; 

WinIist[Recnum].defW  =  outarr[2]; 
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Winlist[Recnum].defH  =  outarr[3]; 


/*  draw  visible  windows  to  screen*/ 
/*  and  make  active  */ 


if  (is_Visible  ==  TRUE) 
begin 

NoErrorFlag  =  wind_open(temphand,outarr[0),outarr[l], 
outarr[  2]  ,outarr[  3] ); 

wind_get(temphand,WF_WXYWH,&outarr[0],&outarr[  1  ], 
&outarr[2],&outarr[3]); 

/*  set  clip  area  to  window  */ 

/*  content  region  and  whiten  */ 

outarr[2]  +=  (outarrfO]  -  1); 
outarr[3J  +=  (outarr[l]  -  1); 

vs_clip(Device,  1  ,outarr); 
whiterec(outarr); 

Active_win  =  Recnum; 


set_map(&(WinIist[Recnum].Coordmap),0,0, 

outarr[0],outarr[l]); 

/*  set  GEM  VDI  global  drawing 
/*  parameters  and  record  in 
/*  window  record 

set_color(LTBLACK); 

set_xfer_mode(REPLACE); 

set_pattem(SOLID); 

end 

/*  set  the  window's  drawing  */ 
/*  parameters  */ 

else 

begin 

Winlist[Active_win].wincol  =  LTBLACK; 
Winlist[Active_win].winpat  =  SOLID; 
Winlist[Active_winj. winmode  =  REPLACE; 
end 

Winlist[Recnum].Visible  =  is_Visible; 

re  turn  (Recnum); 
end 
end 


*/ 

*/ 

*/ 


/* . - . . . - . */ 

/*  close_window:  Function  to  close  and  permanently  deallocate  the  */ 

/*  specified  window.  */ 

/* - - - -  */ 


State 

close_window(Id) 

Window_id  Id; 


begin 

Int  Recnum; 
for  (Recnum  =  0; 

((Recnum  <  MAXNUMWIN)  &&  (Alloc_win[Recnum]  !=  Id)); 
Recnum++); 

if  (Recnum  >=  MAXNUMWIN) 
return; 

hide_window(Id); 

wind_delete(Winlist[Id].Winhandle); 

dalloc_win(Recnum); 


/*- . */ 

/*  update_win:  Function  which  sets  the  system  into  the  update  window  */ 

/*  mode.  In  this  mode,  drawing  will  be  limited  to  the  visible  region  */ 

f*  of  the  window  to  be  updated  (as  identified  by  the  ID  number  input)  */ 

/*  to  the  function.  When  given  an  rectangular  area  to  update,  the  */ 

/*  function  will  return  the  intersection  between  that  area  and  one  of  */ 

/*  the  rectangles  which  define  the  visible  area  of  the  window  to  be  */ 

/*  updated.  */ 

/* . . . . . . . */ 


Bool 

update_win(ED,Up_rct,Dr_rct) 

Window_id  ID; 

Rect  *Up_rct,*Dr_rct; 


/*  top  left  x  of  first  vis  rect  */ 

/*  top  left  y  of  first  vis  rect  */ 

/*  width  of  first  visible  rect  */ 
/*  height  of  first  visible  rect  */ 

/*  GEM  VDI  input  array  */ 


begin 

Int 

Int 

Int 

Int 

Int 


Firstx; 

Firsty; 

Firstw; 

Firsth; 

outarr[4]; 


*/ 


/*  get  first  visible  rectangle 
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wind_get(Winlist[ID].Winhandle,WF_FIRSTXYWH,&Firstx,&Firsty>&Firstw, 

&Firsth); 


if  ((Firstw  >  0)  &&  (Firsth  >  0)) 
begin 


/*  calculate  intersection  of  */ 

/*  visible  rectangle  and  rect  to  */ 

I*  be  updated  */ 

do_rev_map(&(Winlist[ID].Coordmap),&Firstx,&Firsty); 
Firstw  +=  Firstx  -  1; 

Firsth  +=  Firsty  -  1; 

Assign_rect(Firstx,Firsty  .Firstw  .Firsth  ,Dr_rct); 

set_insect_rect(Up_rct,Dr_rct,Dr_rct); 

/*  set  clip  area  to  intersection  */ 

/*  rectangle  and  whiten  */ 

get_gem_rect(Dr_rct,&outarr[0],&outarr[  1  ],&outarr[2], 
&outarr[3]); 

do_map(&(\Vinlist[ID].Coordmap),&outarr[0].&outarr[l]); 
outarr[2]  +=  (outarr[0]  -  1); 
outarr[3]  +=  (outarr[lj  -  1); 

/*  remember  which  is  top  window  */ 

Last_active  =  Active_win; 

Active_win  =  ID; 
activedraw(); 

vs_clip(Device,  1  .outarr); 
whiterec(outarr); 


/*  set  GEM  update  mode  */ 


wind_update(l); 
Update_in_prog  =  TRUE; 
return  (TRUE); 


end 


else 

retum(FALSE); 


/* .  . . ----- -*/ 

/*  next_update:  Function  which  returns  the  intersection  of  the  desired  */ 
/*  update  area  (Up_rct)  and  the  next  rectangle  in  the  gem  rectangle  */ 

/*  list  which  defines  the  visible  area  of  a  window  (output  is  Dr_rct).  */ 
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/*  A  function  return  of  false  indicates  no  more  rectangles  are  left  in  */ 

/*  the  gem  visible  rectangle  list.  */ 

/* . .  . */ 


Bool 

next_update(Up_rct,Dr_rct) 

Rect  *Up_rct,*Dr_rct; 

begin 

Int  Nextx; 

Int  Nexty; 

Int  Nextw; 

Int  Nexth; 

Int  outarr[4]; 

if  (Update_in_prog) 
begin 


/*  top  left  x  of  next  vis  rect  */ 

/*  top  left  y  of  next  vis  rect  */ 

t*  width  of  next  visible  rect  */ 
/*  height  of  next  visible  rect  */ 
/*  GEM  VDI  input  array  */ 


/*  get  next  visible  rectangle  */ 

wind_get(Winlist[Active_win].Winhandle,WF_NEXTXYWH,&Nextx, 

&Nexty,&Nextw,&Nexth); 


if  ((Nextw  >  0)  &&  (Nexth  >  0)) 
begin 


/*  calculate  intersection  of  */ 

/*  visible  rectangle  and  rect  to  */ 

/*  be  updated  */ 

do_rev_map(&(Winl  ist[  Active^win]  .Coordmap), 
&Nextx,&Nexty); 

Nextw  +=  Nextx  -  1; 

Nexth  +=  Nexty  -  1; 

Assign_rect(Nextx, Nexty  ,Nextw,Nexth,Dr_rct); 
set_insect_rect(Up_rct,Dr_rct,Dr_rct); 

/*  set  clip  area  to  intersection*/ 

/*  rectangle  and  whiten  */ 

get_gem_rect(Dr_rct,&outarr[OJ,&outarr[  1  ], 
&outarr[2],&outarr[3j); 
do_map(&(Wintist[Active_win].Coordmap), 
&outarr[0],&outarr[l]); 
outarr[2]  +=  (outarr[0]  -  1); 
outarrf3]  +=  (outarr[l  ]  -  1); 
vs_clip(Device,  1  ,outarr); 
whiterec(outarr); 


end 


return  (TRUE); 


else 


retum(FALSE); 


end 

else 

reaim(FALSE); 


end 


/* . . - . -  - - - - */ 

/*  end_update:  procedure  to  end  the  update  mode  and  restore  the  clip  */ 
/*  area  to  match  the  active  (topmost)  window.  */ 

/* - -  */ 

State 

end_update() 


begin 

Int  outarr[4]; 

if  (Update_in_prog) 
begin 

Active_win  =  Last_active; 
wind_get(Winlist[Active_win].Winhandle, 

WF_WX  YWH,&outarr  [0]  ,&outarr[  1  ]  ,&outarr[  2]  ,&outarr[3] ); 

outarr[2]  +=  (outarr[0]  -  1 ); 
outarr[3]  +=  (outarrfl]  -  1); 
vs_clip  (Device ,  1  ,outarr) ; 
activedrawQ; 
wind_update(0); 

Update_in_prog  =  FALSE; 
end 
end 


/* . . . . . */ 

/*  Note  for  all  drawing  routines:  mouse  is  hidden  during  all  drawing  */ 

/*  routines  to  prevent  unwanted  interaction  between  the  drawing  */ 

/*  being  done  and  the  mouse  buffer  which  is  used  to  save  and  restore  */ 
/*  the  backround  behind  the  mouse.  */ 

/* - -  - - - *1 


/* . . . . . - . - . */ 

/*  drawline:  Function  which  draws  a  line  in  the  currently  active  window.  */ 
/*  Input  coordinates  are  relative  to  the  top  left  hand  comer  of  the  */ 

/*  active  window.  */ 

/* .  . . —*l 

State 

drawline(St_pt,End_pt) 


Point  *St_pt,*End_pt; 
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begin 


Int  outarr[4j; 

if  (!equalpt(St_pt,End_pt)) 
begin 

outarr[0]  =  (St_pt  ->  h); 
outarrfl]  =  (St_pt  ->  v); 
outarr[2]  =  (End_pt  ->  h); 
outarr[3]  =  (End_pt  ->  v); 

do_map(&(Winlist[Active_win].Coordmap),&outarr[0],&outarr[  1  ]); 
do_map(&(Winlist[Active_win].Coordmap)>&outarr[2],&outarr[3]); 

graf_mouse(HIDEMOU  S  E,MOUS  E  ADDR); 
v_pline(Device,2,outarr); 
graf_mouse(SHOWMOUSE,MOUSEADDR); 
end 
end 


/*— . . . */ 

/*  drawrect:  Function  to  draw  the  outline  of  a  rectangle  in  the  active  */ 

/*  window.  The  coordinates  of  the  input  rectangle  are  asumed  to  be  */ 

/*  relative  to  the  top  left  corner  of  the  active  window’s  work  area.  */ 

/* . . . */ 

State 

drawrect(Injrect) 


Rect  *In_rect; 


begin 

Int  outarr[10]; 

if  (!equalpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 
begin 


outarr[0]  =  (*In_rect).topLeft.h; 
outarrfl]  =  (*In_rect).topLeft.v; 
outarr[4]  =  (*In_rect).botRight.h  -  1; 
outarr[5]  =  (*In_rect).botRight.v  -  1; 

do_map(&(Winlist[  Active_win].Coordmap),&outarr[0],&outarr[  1  ]); 
do_map(&(Winlist[Active_win].Coordmap),&outarr[4],&outarr[5]); 

outarr[2]  =  outarr[4]; 
outarr[3]  =  outarrfl]; 
outarr[6]  =  octarrfoj; 
outarr[7]  =  outarrf5]; 
outarr[8]  ■-  outarr[0]; 
outarr[9J  =  outarrfl  j; 
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graf_mouse(MDEMOUSE,MOUSEADDR); 
v_pline(Device,5,outarr); 
graf_mouse(S  HOWMOUSE.MOUSEADDR); 
end 
end 


I 


S 


( 


/* . — . - - - - - . ---*/ 

/*  drawellipse:  Function  which  draws  an  ellipse  within  the  area  of  the  */ 
/*  active  window  specified  by  the  input  rectangle.  The  coordinates  */ 

/*  of  the  input  rectangle  are  assumed  to  be  relative  to  the  top  left  */ 

/*  comer  of  the  work  area  of  the  active  window.  */ 

/*  - - -  - */ 

State 

drawellipse(In_rect) 


Rect  *In_rect; 

begin 

Int  x_ctr,y_ctr,x_rad,y_rad; 

Int  tempp,tempxfer; 


if  (!equalpt(&((*In_rect).topLeft),&((*Injrect).botRight))) 
begin 


polar_coord(Injrect,&x_ctr,&y_ctr,&x_rad,&y_rad); 

do_map(&(Winlist[Active_win].Coordmap),&x_ctr,&y_ctr); 


graf_mouse(H3DEMOUSE,MOUSEADDR); 

v_ellarc(Device,x_ctr,y_ctr,x_rad,y_rad,0,3600); 

graf_mouse(SHOWMOUSE,MOUSEADDR); 

end 

end 


/* . - . - . */ 

/*  drawarc:  Function  which  draws  an  elliptical  arc  between  the  two  */ 

/*  input  angles  (begang  and  endang)  specified  and  within  the  */ 

/*  rectangular  area  of  die  active  window  specified.  The  input  */ 

/*  rectangle  is  assumed  to  be  relative  to  the  top  left  comer  of  the  */ 

/*  work  area  of  the  active  window.  Angles  are  reversed  to  force  */ 

/*  correspondence  with  Mac.  */ 

/* - - -  - - - */ 

State 

drawarc(R, begang, endang) 


Rect  *R; 

Int  begang, endang; 

begin 

Int  x_ctr,y_ctr,x_rad,y_rad; 
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if  (!equalpt(&((*R).topLeft),&((*R).botRight))) 
begin 

polar_coord(R,&x_ctr,&y_ctr,&x_rad,&y_rad); 

do_map(&(Wirdist[Active_win].Coordmap),&x_cff,&y_ctr); 

map_angle(&begang); 

map_angle(&endang); 

graf_mouse(HIDEMOUSE,MOUSEADDR); 
v_ellarc(Device,x_ctr,y_ctr,x_rad,y_rad,endang,begang); 
graf_mouse(S  HO  WMOU  S  E,MOUS  E  ADDR); 
end 

end 


/*■■— . - . - — - - - */ 

/*  drawmdrect:  Function  which  draws  the  outline  of  a  rounded  rectangle  */ 
/*  within  the  specified  rectangular  area  of  the  active  window.  */ 

/* . . . . . */ 

State 

drawmdrct(In_rect) 


Rect  *In_rect; 

begin 

Int  outarr[4]; 

if  (!equalpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 
begin 

outarr[0]  =  (*In_rect).topLeft.h; 
outarrf  1  ]  =  (*In_rect).topLeft.v; 
outarr[2J  =  (*In_rect).botRight.h  -  1; 
outarr[3]  =  (*In_rect).botRight.v  -  1; 


do_map(&(Winlist[Active_win],Coordmap),&outarr[0],&outarr[  1  ]); 
do_map(&(Winlist[Active_win].Coordmap),&outarr[2],&outarr[3]); 

graf_mouse(HIDEMOUSE,MOUSEADDR); 

v_rbox(Device,outarr); 

graf_mouse(SHOWMOUSE,MOUSEADDR); 

end 

end 


/* .  .  . . 

/*  fillrect:  Function  which  draws  a  pattern  within  the  specified 
/*  rectangular  area  of  the  active  window. 

/* 

State 
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*/ 

*/ 

■*/ 


4 


fillrect(In_rect) 


Rect  *In_rect; 


begin 

Int  outarr[4]; 

if  (!equaJpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 
begin 

outarr[0]  =  (*Injrect).topLeft.h; 
outarr[l]  =  (*In_rect).topLeft.v; 
outa rr[2]  =  (*In_rect).botRight.h  - 1; 
outarr[3]  =  (*In_rect).botRight.v  -  1; 


do_map(&(Winlist[Active_win].Coordrnap),&outarr[0],&outarr[  1  ]); 
do_map(&(Winlist[Active_win].Coordmap),&outarr[2],&outarr[3]); 

graf_mouse(HIDEMOUSE,MOUSEADDR); 

vr_recfl(Device,outarr); 

graf_mouse(SHOWMOUSE,MOUSEADDR); 


/* . - . */ 

t*  fillmdrect:  Function  which  fills  the  outline  of  a  rounded  rectangle  */ 

/*  within  the  specified  rectangular  area  of  the  active  window.  */ 

/* . - . - . */ 

State 

fillmdrct(In_rect) 


Rect  *In_rect; 


begin 

Int  outarr[4]; 

if  (!equalpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 
begin 


outarr[0]  =  (In_rect  ->  topLeft).h; 
outarrflj  =  (In_rect  ->  topLeft).v; 
outarr[2]  =  (In_rect  ->  botRight).h  -  1; 
outarr[3]  =  (In_rect  ->  botRight).v  -  1; 


do_map(&(Winlist[Active_win].Coordmap),&outarr[0],&outarr[  1  ]); 
do_map(&(Winlist[Active_winj.Coordmap),&outarrf2],&outarrf3]); 

graf_mouse(HIDEMOUSE,MOUSEADDR); 

v_rfbox(Device,outarr); 
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graf_mouse(SHOWMOUSE,MOUSEADDR); 

end 

end 


/*- - - - - — -*/ 

/*  fillellipse:  Function  which  fills  an  ellipse  within  the  area  of  the  */ 

f*  active  window  specified  by  the  input  rectangle.  The  coordinates  */ 

/*  of  the  input  rectangle  are  assumed  to  be  relative  to  the  top  left  */ 

/*  comer  of  the  work  area  of  the  active  window.  */ 

/* - - - - - - */ 

State 

fillellipse(In_rect) 


|  Rect  *In_rect; 

begin 

Int  x_ctr,y_ctr,x_rad,y_rad; 

if  (!equalpt(&((*In_rect).topLeft),&((*In_rect).botRight))) 

I  begin 

poIar_coord(In_rect,&x_ctr,&y_ctr,&x_rad,&y_rad); 

do_map(&(Winlist[Active_win].Coordmap),&x_ctr,&y_ctr); 

graf_mouse(HIDEMOUSE,MOUSEADDR); 

Iv_eUipse(Device,x_ctr,y_ctr,x_rad,y_rad); 

graf_mouse(SHOWMOUSE,MOUSEADDR); 

end 

end 


/* . - . . */ 

/*  fillarc:  Function  which  fills  an  elliptical  arc  between  the  two  */ 

/*  input  angles  (begang  and  endang)  specified  and  within  the  */ 

/*  rectangular  area  of  the  active  window  specified.  The  input  */ 

/*  rectangle  is  assumed  to  be  relative  to  the  top  left  comer  of  the  */ 

/*  work  area  of  the  active  window.  Angles  are  reversed  in  the  GEM  */ 

f*  function  call  to  force  correspondence  to  Mac.  */ 

/* - - - - . */ 

State 

fillarc(R,begang,endang) 


;« 

Rect 

*R; 

Int 

begang, endang; 

begin 

Int 

x_ctr,y_ctr,x_rad,y_rad; 

if  (!equalpt(&((*R).topLeft),&((*R).botRight))) 
begin 
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polar_coord(R.&x_ctr,&y_ctr,&x_rad,&y_rad); 

do_map(&(Winlist[Active_win].Coordrnap),&x_ctr,&y_ctr); 


map_angle(&begang); 

map_angle(&endang); 

graf_mouse(HIDEMOUSE,MOUSEADDR); 

v_ellpie(Device,x_ctr,y_ctr,x_rad,y_rad,endang,begang); 

graf_mouse(SHOWMOUSE,MOUSEADDR); 


end 

. - - - - - */ 

/*  acdvate_win:  Function  which  causes  the  specified  window  to  become  */ 
/*  the  active  window.  It  causes  any  window  (but  the  desktop  with  a  */ 
/*  id  number  of  0)  to  be  moved  to  the  top  and  a  new  backround  will  */ 

/*  be  drawn  in,  however,  the  contents  will  not  be  automatically  */ 


/*  redrawn.  */ 

/* . - . — . . . . . */ 

State 


activate_win(ID) 

Window_id  ID; 

begin 

Int  outarr[4];  /*  input  to  GEM  VDI  */ 


if  (!(ID  ==  Active_win)) 
begin 


if  ((ID  >=  DESK_WIN)) 
begin 


/*  if  not  the  desktop,  bring  */ 

/*  specified  window  to  top  */ 

if((ID  >=  1)  &&  (ID  <=  MAXNUMREC)) 
begin 

graf_mouse(HIDEMOUSE,OXOL); 

wind_set(Winlist[ID].Winhandle,WF_TOP,0,0,0,0); 


/*  set  clip  area  to  content  area  */ 

Active_win  =  ID; 

wind_get(Winlist[ID].Winhandle,WF_WXYWH,&outarr[0], 

&outarr[l],&outarr[2],&outarr[3]); 

outarr[2]  +=  (outarr[0]  -  1); 
outarr[3]  +=  (outarrfl]  -  1); 

vs_clip(Device,  1  ,outarr); 
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if  ((ID  >=  1)  &&  (ID  <=  MAXNUMREC)) 
graf_mouse(SHOWMOUSE,OXOL); 

activedraw(); 


I 


end 


end 

end 


/* - - - - - */ 

/*  hscroll:  Function  which  scrolls  the  content  area  of  the  active  window  */ 

/*  by  the  number  of  "pixels"  specified  by  num.  If  the  num  is  */ 

/*  positive,  the  region  will  move  to  the  left,  and  to  the  right  if  */ 

/*  negative.  */ 

/* . - - - - */ 

State 

hscroll(num,Up_rect) 


< 


R 


« 


« 


'« 


begin 


Int 

num; 

Rect 

*Up_rect; 

Int 

X; 

Int 

Y; 

Int 

W; 

Int 

H; 

Int 

outarr[8]; 

Int 

whtarr[4]; 

if  (!(num  ==  0)) 
begin 

/*  top  left  x  of  content  area  */ 

/*  top  left  y  of  content  area  */ 

/*  width  of  content  area  */ 

/*  height  of  content  area  */ 

/*  output  to  GEM  VDI  bit  copy  fen  */ 

/*  GEM  VDI  rectangle  to  whiten  */ 


/*  set  to  scroll  the  content  area  */ 
/*  left  and  whiten  the  vacated  */ 
t*  rectangle  */ 


if  (num  >  0) 
begin 

wind_get(Winlist[  Active_win]  .Winhandle, 
WF_WXYWH,&X,&Y,&W,&H); 
outarr[0]  =  X  +  num; 
outarrfl]  =  Y; 
outarr[2]  =  X  +  W  -  1; 
outarr[3]  =  Y  +  H  -  1; 
outarr[4]  =  X; 
outarr[5]  =  Y; 

outarr[6]  =  X  +  W  -  1  -  num; 
outarr[7]  =  Y  +  H  -  1; 
whtarr[0]  =  outarr[6]; 
whtarrfl]  =  outarr[lj; 
whtarr[2]  =  outarr[2]; 
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end 


whtarr[3]  =  outarr[3]; 


/*  set  to  scroll  the  content  area  */ 
/*  right  and  whiten  the  vacated  */ 

/*  rectangle  */ 


if  (num  <  0) 
begin 

wind_get(Winlist[  Active_win] .  Winhandle, 
WF_WXYWH,&X,&Y,&W,&H); 
outarr[0j  =  X; 
outarrfl]  =  Y; 

outarr[2]  =  X  +  W  -  1  +  num; 
outarr[3]  =  Y  +  H  -  1; 
outarr[4]  =  X  -  num; 
outarr[5]  =  Y; 
outarr[6]  =  X  +  W  -  1; 
outarr[7]  =  Y  +  H  -  1; 
whtarr[0]  =  outarr(C)]; 
whtarr[lj  =  outarr[lj; 
whtarr[2]  =  outarr[4]; 
whtarrf3]  =  outarr[3]; 
end 


I*  bit  copy  to  scroll  */ 

graf_mouse(HIDEMOUSE,OXOL); 
vro_cpyfm(Device,3,outarr,&scm_form,&scm_form); 
graf_mouse(S  HOWMOUS  E  ,0X0L); 
translate_origin(Active_win,num,0); 
whiterec(whtarr); 


end 

else 

for(X  =  0;  X  <  4;  X++) 
whtarr[X]  =  0; 


/*  assign  the  rect  to  be  updated  */ 

/*  in  window  local  coord  */ 

do_rev_map(&(Winlist[Acti  ve_win].Coordmap),&whtarr[0],&whtarr[  1  ]); 
do_rev_map(&(Winlist[Active_win].Coordmap),&whtarr[2],&whtair[3]); 

assign_rect(whtarr[0],whtarr[  1  ],whtarr[2],whtarr[3],Up_rect); 
end 


/* - - - - - - - */ 

/*  vscroll:  Function  which  scrolls  the  content  area  of  the  active  window  */ 

/*  by  the  number  of  "pixels"  specified  by  num.  If  the  num  is  */ 

/*  positive,  the  region  will  move  up,and  down  if  negative.  */ 
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/*■ ------ . . 

State 

vscroil(num,Up_rect) 


begin 


Int 

num; 

Rect 

*Up_rect; 

Int 

X; 

Int 

Y; 

Int 

W; 

Int 

H; 

Int 

outarr[8]; 

Int 

whtarr[4]; 

if  (!(num  ==  0)) 
begin 

*/ 


/*  top  left  x  of  content  area  *1 
/*  top  left  y  of  content  area  */ 

/*  width  of  content  area  */ 

/*  height  of  content  area  */ 

/*  output  to  GEM  VDI  bit  copy  fen  */ 

/*  GEM  VDI  rectangle  to  whiten  */ 


/*  set  to  scroll  the  content  area  */ 

/*  up  and  whiten  the  vacated  */ 

/*  rectangle  */ 


if  (num  >  0) 
begin 

wind_get(Winlist[Active_win].Winhandle, 
WF_WXYWH,&X,&Y,&W,&H); 
outarr[0]  =  X; 
outarrfl]  =  Y  +  num; 
outarr[2]  =  X  +  W  -  1 ; 
outarr[3]  =  Y  +  H  -  1; 
outarr[4]  =  X; 
outarr[5]  =  Y; 
outarr[6]  =  X  +  W  -  1; 
outarr[7]  =  Y  +  H  -  I  -  num; 
whtarrfO]  =  outair[0]; 
whtarr[l]  =  outarr[7]; 
whtarr[2]  =  outarr[2]; 
whtarr[3]  =  outarr[3]; 
end 


/*  set  to  scroll  the  content  area  */ 

/*  down  and  whiten  the  vacated  */ 
/*  rectangle  */ 


if  (num  <  0) 
begin 

wind_get(Winlist[  Active_win] .  Winhandle, 
WF_WXYWH,&X,&Y,&W,&H); 
outarrfO]  =  X; 
outarr[l]  =  Y; 
outarr[2]  =  X  +  W  -  1; 
outarr[3]  =  Y  +  H  -  1  +  num; 
outarr[4]  =  X; 
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outarr[5]  =  Y  -  num; 
outarr[6]  =  X  +  W  -  1 ; 
outarr[7]  =  Y  +  H  -  1; 
whtarr[0]  =  outarrfO]; 
whtarr[l]  =  outarr[lj; 
whtarr[2]  =  outarr[2]; 
whtarr[3]  =  outarr[5]; 


/*  bit  copy  to  scroll  */ 

graf_mouse(FTDEMOUSE,OXOL); 

vro_cpyfm(Device,3.outaiT,&scm_forni,&scm_form); 

graf_mouse(SHOWMOUSE,OXOL); 

translate_origin(Active_win,0,num); 

whiterec(whtarr); 


end 

else 

for(X  =  0;  X  <  4;  X++) 
whtarr[X]  =  0; 


/*  assign  the  rect  to  be  updated  */ 
/*  in  window  local  coord  */ 


do_rev_map(&CWinlist[Active_win].Coordmap),&whtarr[0],&whtarr[l]); 

do_rev_map(&(Winlist[Actxve_win].Coordmap),&whtarr[2])&whtarr[3]); 


end 


assign_rect(whtarr[0],whtarr[l],whtarr[2], 

whtarr[3],Up_rect); 


/* . - . . . */ 

/*  set_hscroll:  Function  which  sets  the  value  of  the  horizontal  scroll  */ 

/*  bar  of  the  active  window  to  the  input  val.  */ 

/*  - - -  - - - - . */ 

State 

set_hscroll(val) 


Int  val; 


begin 


if  (val  <  0) 

val  =0; 


if  (val  >  1000) 

val  =  1000; 

wind_set(Winlist[Active_win].Winhandle,WF_HSLIDE, val, 0,0,0); 
Winlist[Active_win].H_value  =  val; 
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/* . - . — . - — . - — . ----*/ 

/*  set_vscrolI:  Function  which  sets  the  value  of  the  vertical  scroll  bar  */ 
/*  to  the  input  val.  *1 

/* . . .  . . . */ 

State 

set_vscroll(val) 


Int  val; 

begin 

if  (val  <  0) 

val  =  0; 

if  (val  >  1000) 

val  =  1000; 

wind_set(Winlist(Active_win].Winhandle,WF_VSLIDE,val, 0,0,0); 
Winlist[Active_win].V_value  =  val; 

end 


/* . */ 

/*  get_hscroll:  Function  which  returns  the  horizontal  scroll  bar  value.  */ 

/* . */ 

Int 

get_hscroll() 


begin 

retum(Winlist[Active„win].H_value); 

end 


/* _ _ _ _ _ _ _ _ _ _ _ _ _ 

/*  get_vscroll:  Function  which  returns  the  vertical  scroll  bar  value.  */ 

/* . . . . . . */ 

Int 

get_vscroll(val) 


begin 

retum(Winlist[Active_win].V_value); 

end 


. - . - - - - - - - . */ 

/*  hide_window:  Function  which  removes  the  specified  window  from  the  */ 
/*  screen  without  deallocating  it.  */ 

/* . . . . . -—*/ 

State 

hide_window(Id) 


Window_id  Id; 


begin 

Int  temphandle; 

if  (Winlistfld], Visible  &&  (Id  !=  DESK_WIN)) 
begin 

wind_close(Winlist[Id].Winhandle); 

Winlist[Id].' Visible  =  FALSE; 

if  (Id  ==  Active_win) 
begin 

wind_get(0,WF_TOP,&temphandle,0,0,0); 

windowID(temphandle,&Active_win); 

activate_win(Active_win); 

end 

end 

end 


/* . — . — . */ 

/*  show_window:  Function  which  draws  an  invisible  but  previously  defined*/ 
/*  window  onto  the  screen.  This  window  becomes  the  active  window.  */ 

/* . . . */ 

State 


show_window(Id) 

Window_id  Id; 

begin 

Int  outarr[4]; 

if  ((!Winlist[Id].  Visible)  &&  ad  !=  DESKJWIN)) 
begin 

wind_open(WinIist[Id].Winhandle,WinIist[Id].defX, 

Winlist[Id].defY,Winlist[Id].defW,Winlist[Id].defH); 
Winlistfld].' Visible  =  TRUE; 
activate_win(Id); 
end 
end 


/* . — : . - —  - - - - - */ 

/*  get_active:  Function  which  returns  the  identifier  of  the  active  */ 

/*  window.  */ 

/* - - - - - - - - . */ 


Window_id 

get_active() 

begin 


end 


retum(Active_win); 


/* . — . — . */ 

/*  get_color:  Function  which  returns  the  identifier  of  the  drawing  color  */ 

/* . .  . .  -*/ 

Color_id 

get_color() 


begin 

return  (Winlist[Active_win].wincol); 
end 


/* - - - . . . */ 

/*  get_mode:  Function  which  returns  the  identifier  of  the  drawing  trans-  */ 
/*  fer  mode.  */ 

/* . : . - - - - - . */ 

Mode_id 

get_xfer_mode() 


begin 

retum(Winlist[Active_win].  winmode); 
end 


/* . - . */ 

/*  get_pattem:  Function  which  returns  the  identifier  of  the  drawing  */ 

/*  pattern.  */ 

/* . */ 

Pattem_id 

get_pattem() 


begin 

return  (Winlist[Active_win].winpat); 
end 


/* . . . . . V 

/*  txtpen:  Function  which  sets  the  location  of  the  next  character  to  */ 

/*  be  drawn  in  the  active  window  (location  of  text  pen  in  window  */ 

/*  local  coordinates).  */ 

/* - - - - V 

State 

txtpen(inpt) 


Point  *inpt; 

begin 

copypt(inpt,<?:(Winlist[Active_win].  txtpen)); 
end 


/* . — - . - . - . ----*/ 

/*  set_txtpen:  Function  which  returns  the  location  of  the  text  pen  for  *1 
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/*  the  currently  active  window  (in  window  local  coordinates).  */ 

/*  */ 
State 

set_txtpen(pen) 


Point  *pen; 


begin 

copypt(&(Winlist[Active_win].txtpen),pen); 

end 


I 


I 


i 


I* .  .  . */ 

/*  drawstring:  Function  which  draws  a  string  into  the  active  window  at  */ 
/*  the  current  location  of  its  text  pen.  */ 

r - - - - - - . *i 


State 

drawstring(strptr) 

Char  *strptr; 


begin 

Int  x,y; 

Int  extent[8]; 

x  =  Winlist[Active_win].txtpen.h; 
y  =  Winlist[Active_winj.txtpen.v; 

do_map(&(Winlist[Active_win].Coordmap),&x,&y); 

graf_moi’se(HIDEMOUSE,MOUSEADDR); 

v_gtext(Device,x,y,strptr); 

graf_tnou  se(S  HO  WMOU  SE.MOUSEADDR); 

vqt_extent(Device,strptr,  extent); 

Winlist[Active_win].txtpen.h  +=  extent[2j; 


end 


/* -  - - - - - - V 

/*  drawchar:  Function  which  draws  a  character  at  the  current  location  of  */ 
/*  the  active  window's  text  pen.  */ 

I* .  -  . . .  */ 


State 

drawchar(inchr) 

Char  inchr; 
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begin 

Char  outstr[2]; 

Int  x,y; 

Int  extent[8]- 

if  (Winlist[Active_winJ. winmode  !=  XOR) 

vswr_mode(Device,TRANSPAR); 

outstrfO]  =  inchr; 
outstrf  1 J  =  NUL_CHR; 

x  =  Winlist[Active_win].txtpen.h; 
y  =  WinIist(Active_win].txtpen.v; 


do_map(&(Winlist[Active_win].Coordmap),&x,&y); 

graf_mouse(HIDEMOUSE,MOUSEADDR); 
v_gtext(Device,x,y,outstr); 
graf_mouse(SHOWMOUSE,MOUSEADDR); 
vqt_extent(Device,outstr, extent); 

Winlist[Active_win].txtpen.h  +=  extent[2J; 

if  (Wir.listf  Active_w'in]. winmode  !=  XOR) 

vswr_mode(Device,Winlist[Active_win].  winmode); 

end 


/*  */ 
/*  get_wchar:  Function  w'hich  returns  the  current  character  width.  */ 

/* . . . - . */ 

Int 

get_wchar() 


begin 

return(hwchar); 

end 


/* . - . - . - - - - - - ----- . V 

/*  get_hchar:  Function  which  returns  the  current  character  height.  */ 

/*— - - - - - */ 

Int 

get_hchar() 


begin 

retum(hhchar); 

end 
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/* 

/* 


ASWINI.C 


■*/ 

*/ 

■*/ 


/*  Module  global  data  declarations  —  These  variables  are  required  to 
/*  be  global  to  allow  linkage  with  the  GEM  driver  modules. 


*/ 

*/ 


Int 

control  2]; 

In: 

intin[  128]; 

Int 

ptsin[  128]; 

Int 

intout[128]; 

Int 

pts  jut[128]; 

/*  Local  data  declarations  of  data  structures  to  be  hidden  from  the  */ 

/*  user.  */ 


static 

Int 

hwchar; 

/*  width  of  a  character 

*/ 

static 

Int 

hhchar; 

/*  height  of  a  character 

*/ 

static 

Int 

hwbox; 

/*  width  of  a  character  box 

*/ 

static 

Int 

hhbox; 

/*  height  of  a  character  box 

*/ 

static 

Int 

workjnfl  1]; 

/*  GEM  open  v  workstation  input 

*/ 

static 

Int 

work_out[57]; 

/*  GEM  open  v  workstation  output 

*/ 

static 

Int 

ap_id; 

/*  GEM  application  id 

*/ 

static 

Int 

Device; 

/*  handle  for  GEM  virtual  screen 

*/ 

static 

Int 

gem_Device; 

/*  handle  for  GEM  screen 

*/ 

typedef 

struct  Map 

/*  type  defination  of  global  to 

*/ 

begin 

/*  window  local  coordinate  map 

*/ 

Int 

Xorigin; 

/*  horiz  window  origin 

*/ 

Int 

Yorigin; 

/*  vert  window  origin 

*/ 

Int 

Xreal; 

/*  horiz  real  screen  coord 

*/ 

Int 

Yrcal; 

/*  vert  real  screen  coord 

*/ 

end 

Map; 

typedef 

struct  Winrec 

/*  window  record  structure 

*/ 

begin 

Int 

Winhandle; 

/*  GEM  window  handle 

*/ 

Map 

Coordmap; 

/*  global  to  local  map 

*/ 

Int 

H_value; 

/*  current  horiz  scroll  value 

*1 

Int 

V_value; 

/*  current  vert  scroll  value 

*/ 

Bool 

Visible; 

/*  is  window  visible  on  screen 

*1 

Int 

defX; 

/*  global  x  of  entire  window 

*1 

Int 

defY; 

/*  global  y  of  entire  window 

*/ 

Int 

defW; 

/*  width  of  entire  window 

V 

Int 

defH; 

/*  height  of  entire  window 

*/ 

Point 

txtpen; 

/*  location  to  draw  next  txt 

*/ 

Mode_ 

id  winmode; 

/*  window  drawing  mode 

*/ 

Pattern 

:_id  winpat; 

/*  window  drawing  pattern 

*/ 

Color_ 

id  wincol; 

1*  window  color 

*/ 

end 
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Winrec; 


/*  records  for  windows  +  desk 

*/ 

static 

Winrgc 

WinUst[MAXNUMREC]; 

/*  array  of  available  record  indeces  */ 

static 

Window_id 

A  vail  able_win  [MAXNUMWIN] ; 

/*  array  of  allocated  record  indexes  */ 

static 

Window_id 

Alloc_win  [MAXNUMWIN] ; 

static 

Window_id 

Active_win; 

/*  index  of  active  window 

*/ 

static 

Window_id 

Last_active; 

/*  index  of  previous  active  window 

*/ 

static 

Bool 

Update_in_prog;/*  is  update  occuring 

*/ 

static 

MFDB 

scm_fonn; 

/*  GEM  bit  block  str  for  screen 

*/ 

static 

U_int 

button_flag; 

/*  flag  to  determine  whether  to 

*/ 

/*  look  for  mouse  up  or  down 

*/ 

static 

Long 

baraddr, 

/*  address  of  the  GEM  menu  bar 

*1 

static 

Int 

mhilighted; 

/*  object  index  of  hilighted  menu 

V 

Evtmsg 

Message; 

/*  event  message  for  user 

*/ 

#include  "asevti.c" 
#include  "asevt.c" 


/* . */ 

/*  init_alloc_str:  Function  to  initialize  the  structures  (Available_win  */ 

/*  and  Active_win)  used  to  keep  track  of  window  records  available  to  */ 
/*  be  allocated  and  already  allocated.  */ 

/* . - . — . */ 


State 

inii_alloc_str() 

begin 

Int  I; 

for  (I  =  0;  I  <  MAXNUMWIN;  I++) 
begin 

Available_win[I]  =1  +  1; 
Alloc_win[I]  =  0; 
end 
end 


/* - - - - */ 

/*  wind_init:  Function  to  initialize  the  record  for  the  desktop  window  */ 
/*  and  set  it  to  be  the  initial  active  window.  */ 

/*  -  */ 

State 

wind_init() 


begin 


Bool  NoErrorFlag; 
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Int  X ,  Y ,  W,H,outarr[  4] ; 

Point  tmppoint; 

Winlist[DESK_WIN].Winhandle  =  DESK_WIN; 

NoErrorFlag  =  wind_get(DESK_WIN,WF_WXYWH,&X,&Y,&W)«feH); 

/*  set  desktop  coordinate  map  */ 
Winlist[DESK_WIN].Coordmap.Xorigin  =  0; 
Winlist[DESK_WIN].Coordmap.Yorigin  =  0; 

Winlist[DESK_WIN]  .Coordmap.Xreal  =  X; 
Winlist[DESK_WIN].Coordmap.Yreal  =  Y; 

Winlist[DESK_WIN].Visible  =  TRUE; 

/*  set  deFination  coordinates  and  clip  rectangle  */ 

Winlist[DESK_WIN].defX  =X; 

Winlist[DESK_WIN]  .defY  =  Y; 

WinlistfDESK_WIN].defW  =  W; 

Winlist[DESK_WIN].defH  =  H; 
outarr[0]  =  X; 
outarrfl]  =  Y; 
outarr[2]  =  W  +  X  -  1; 
outarr[3]  =  H  +  Y  -  1; 

vs_clip(Device,  1  ,outarr); 

set_point(0,0,&(Winlist[DESK_WIN],txtpen)); 

init_alloc_str(); 

Aetive_win  =  0; 

Last__active  =  0; 

Update_in_prog  =  FALSE; 
button_flag  =  LOOKMDOWN; 
mhilighted  =  0; 
end 


/* . . - .  - - - */ 

/*  activedraw:  Function  to  set  the  global  drawing  parameters  of  the  GEM  */ 
/*  VDI  to  those  of  the  drawing  window.  */ 

>* _ _ _ _ _ _ _ _ _ */ 


State 

activedraw() 

begin 

set_pattem(Winlist[Active_win].winpat); 
set_color(Winlist[Active_win].wincol); 
set_xfer_mode(Winlist[Active_win]  .winmode); 


end 


/* . — . . . - . */ 

/*  get_gem_rect:  Hidden  function  to  give  the  x  and  y  coordinates  of  the  */ 
/*  top  left  comer  of  an  'abstract'  rectangle  along  with  its  width  */ 

/*  and  height.  */ 

/* - - - - - - - . */ 

State 

get_gem_rect(R,X,Y,W,H) 

Reet  *R; 


1\WV  IX, 

lnt  *X,*Y,*W,*H; 

begin 

(*X)  =  (R  ->  topLeft).h; 

(*Y)  =  (R  ->  topLeft).v; 

(*W)  =  (R  ->  botRight).h  -  (R  ->  topLeft).h  +  1; 
(*H)  =  (R  ->  botRight).v  -  (R  ->  topLeft).v  +  1; 
end 


/*- .  . . . ----- . */ 

/*  do_map:  Function  to  map  window  local  coordinates  (x  and  y  */ 

/*  coordinates)  to  global  screen  coordinates  which  Gem  VDI  will  */ 

/*  recognize.  */ 

/*- . .  . */ 

State 

do._map(Cmap,X,Y) 

Map  *Cmap; 
lnt  *X,*Y; 


begin 

(*X)  +=  (Cmap  ->  Xreal)  -  (Cmap  ->  Xorigin); 

(*Y)  +=  (Cmap  ->  Yreal)  -  (Cmap  ->  Yorigin); 
end 

/* . . . . */ 

/*  do_rev_map:  Function  to  map  global  screen  coordinates  to  window  local  */ 
/*  coordinates  as  defined  by  die  input  coordinate  map  (Cmap).  */ 

/* . . . */ 

State 

do_rev_map(Cmap,X,Y) 

Map  *Cmap; 
lnt  *X,*Y; 

begin 

(*X)  -=  (Cmap  ->  Xreal)  -  (Cmap  ->  Xorigin); 

(*Y)  -=  (Cmap  ->  Yreal)  -  (Cmap  ->  Yorigin); 
end 


/* - - - - - - */ 

/*  set._map:  Function  to  set  the  mapping  from  window  local  coordinates  */ 
/*  to  screen  global  coordinates.  */ 

/* . . . . . . . */ 

State 

set_map(Cmap,Orig_x,Orig_y,Real_x,Real_y) 
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Map  *Cmap; 

Int  Orig_x,Orig_y,Real_x,Real_y; 

begin 

(Cmap  ->  Xorigin)  -  Orig_x; 

(Cmap  ->  Yorigin)  =  Orig_y; 

(Cmap  ->  Xreal)  =  Real_x; 

(Cmap  ->  Yreal)  =  Real_y; 
end 


/* _ _ _ _ _ _ _ _ _ _ _ */ 

/*  get_next_rec:  Function  which  returns  a  boolean  TRUE  if  a  window  */ 

/*  is  available  for  allocation,  FALSE  otherwise.  The  index  to  the  */ 

/*  allocated  record  is  renamed  as  the  integer  pointed  to  by  RECNUM  */ 

/*- - - - - - - */ 

Bool 

get_next_rec(Recnum) 

Int  *Recnum; 

begin 

Int  I,J; 


1  =  0; 

J  =  0; 

while  ((Available_win[I]  ==  0)  &&  (I  <  MAXNUMWIN)) 
I++; 

while  ((Alloc_win[J]  !=  0)  &&  (J  <  MAXNUMWIN)) 
J++; 

if  (I  >=  MAXNUMWIN) 
retum(FALSE); 
else 
begin 

Alloc_win[J]  =  AvailabIe_win[I]; 

(*Recnum)  =  Available_win[I]; 

Available_win[I]  =  0; 
return  (TRUE); 
end 
end 


/* . - . ----- - -  - - -*/ 

I*  dalloc_win:  Dealocates  an  allocated  window  record  */ 

/*  -  - -  - - */ 

State 


dalloc_win(Recnum) 

Int  Recnum; 

begin 

Int  I,J; 

if  ((Recnum  >  0)  &&  (Recnum  <  9)) 
begin 


I 


I 


t 


1 


N 


1  =  0; 

J  =  0; 

while  ((Alloc_win[J]  !=  Recnum)  &&  (J  <  MAXNUMWIN)) 
J++; 

while  ((Available_win  !=  0)  &&  (I  <  MAXNUMWIN)) 

I++; 

if  ((J  <  MAXNUMWIN)  &&  (I  <  MAXNUMWIN)) 
begin 

Available_win[I]  =  AUoc_win[J]; 

Alloc_win[J]  =  0; 

end 

end 

end 


. - - - - - ---*/ 

/*  whiterec:  Paints  the  rectangle  specified  by  the  array  of  4  integers  */ 

/*  pointed  to  by  outarr  white.  Array  must  be  in  the  form:  [0]:  */ 

/*  x  of  top  left  point,  [1]:  y  of  top  left  point,  [2]:  x  of  bottom  */ 

/*  right  point,  [3]:  y  of  bottom  right  point.  All  points  must  be  in  */ 

/*  global  screen  coordinates.  */ 

/* . . . - . */ 

State 

whiterec(outarr) 


Int  *outarr, 

begin 

Mode_id  tempxfer, 

Pattem_id  tempp; 

Colorjd  tempc; 

graf_mouse(HIDEMOUSE,MOUSEADDR); 
tempxfer  =  Winlist[Active_win], winmode; 
tempp  =  Winlist[Active_win].winpat; 
tempc  =  WinIist[Active_win].wincol; 

set_xfer_mode(REPLACE); 

set_pattem(SOLID); 

set_color(LTWHITE); 

vr_recfl(Device, outarr); 

set_xfer_mode(  tempxfer); 
set_pattem(tempp); 
set_color(  tempc); 

graf_mouse(SHOWMOUSE,MOUSEADDR); 

end 


i 

L. 


164 


/* . .  . .  */ 

/*  polar_coord:  Function  which  converts  the  coordinates  of  a  rectangle  */ 
/*  input  in  the  form  of  two  opposing  comers  into  a  polar  coordinate  */ 
/*  like  form  returning  the  center  of  the  rectangle  and  the  x  and  y  */ 

/*  radiuses.  */ 

/* . - - - - - . - . */ 

State 

polar_coord(R,x_ctr,y_ctr,x_rad,y_rad) 


Rect  *R; 

Lnt  *x_ctr,*y_ctr,*x_rad,*y_rad; 

begin 

lnt  gemx.gemy, gemw, gemh; 

get_gem_rect(R,&gemx,&gemy,&gemw,&gemh); 

(*x_ctr)  =  gemx  +  (gemw  /  2); 

(*y_ctr)  =  gemy  +  (gemh  /  2); 

(*x_rad)  =  gemw  /  2; 

(*y_rad)  =  gemh  /  2; 
end 


/* . */ 

/*  map_angle:  Function  which  converts  a  GEM  angle  to  a  Mac  angle  */ 

I  -  /* . */ 

State 

map_angle(angle) 


lnt  *angle; 

begin 

lnt  I; 

if  (angle  <  0) 

for(I  =  (*angle);  I  <  0;  I  +=  3600); 
else 

I  =  (*angle); 

(♦angle)  =  (900  - 1  +  3600)  %  3600; 
end 


/* -  -  - - - */ 

/*  translate_origin:  Function  which  moves  the  origin  of  the  global  to  */ 

/*  local  map  of  the  specified  window  by  the  amount  dX  and  dY.  */ 

/*  . . . .  . */ 

State 

translate_origin(Id,dX,dY) 
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Int  Id,dX,dY; 


begin 


end 


Winlist[Id].Coordmap.Xorigin  +=  dX; 
Winlist[Idj.Coordmap.Yorigin  +=  dY; 


/*- 

/*- 


State 

greenrec(outarr) 


Int  *outarr, 


begin 


Mode_id 
Pattem_id 
Color  id 


tempxfer, 


tempp; 

tempo; 


graf_mouse(HIDEMOUSE,MOUSEADDR); 
tempxfer  =  Winlist[Active_  win],  winmode; 
tempp  =  Winlist[Active_win].winpat; 
tempc  =  Winlist[Active_win].wincol; 


set_xfer_mode(REPLACE); 

set_pattem(SOLID); 

set_color(LTGREEN); 


vr_recfl(Device,outarr); 


set_xfer_mode(tempxfer); 

set_pattem(tempp); 

set_color(tempc); 

graf_mouse(SHOWMOUSE,MOUSEADDR); 


end 


/* . - . 

/* . - . 

State 

bluerec(outarr) 


Int  *outarr, 


begin 


Mode_id 
Pattem_id 
Color  id 


tempp; 

tempc; 


tempxfer, 
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graf_raouse(HIDEMOUSE,MOUSEADDR); 
tempxfer  =  Winlist[Active_win].  winmode; 
tempp  =  Winlist[Active_win].winpat; 
tempc  =  Winlist[Active_win].wincol; 

set_xfer_mode(REPLACE); 

set_pattem(SOLID); 

set_color(LTBLUE); 

vr_recfl(Device,outarr); 

set_xfer_mode(tempxfer); 

set_pattem(tempp); 

set_color(tempc); 

graf_mouse(SHOWMOUSE,MOUSEADDR); 


« 


I 


I 


« 


I 


/*  . .  . . */ 

/*  ASMENU.C  */ 

/* . .  . . . */ 


/* 

/* 


*1 

*/ 


State 

init_menu(filename, barld) 

char  ^filename; 

Menu_id  barld; 


begin 

rsrc_Ioad(ADDR(filename)); 
rsrc_gaddr(0,  barld  ,&  baraddr) ; 
menu_bar(baraddr,  1 ); 
end 

f* . . . */ 

/* . .  - . */ 

State 

item_enable(menunum,itemnum) 
int  menunum,itemnum; 


begin 

menu  Jenable(baraddr,itemnum,  1 ); 
end 

/* . . . */ 

/* . . . */ 


State 

item_disable(menunum,itemnum) 
int  menunum.itemnum; 

begin 

menu_ienable(baraddr,itemnum,0); 

end 

/* - -  V 

/* _ _ _ *i 


State 

item_mark(menunum,itemnum,mark) 

int  menunum.itemnum; 
Bool  mark; 


begin 
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menu_icheck(baraddr,itemnum,mark); 

end 


/* 

/* 


V 

*/ 


State 

menu_hilight(menunum,hilight) 

int  menunum; 

Bool  hilight; 

begin 

if  (hilight) 
begin 


if  (mhilighted  >  0) 

menu_tnormal(baraddr,mhilighted,TRUE); 

menu_tnormal(baraddr,menunum,FALSE); 
mhilighted  =  menunum; 
end 

else  if  (mhilighted  >  0) 
begin 

menu_tnormal(baraddr,  mhilighted,' TRUE); 
mhilighted  =  0; 
end 


end 
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/* . - . . . . 

/*  ASBIND1.H  */ 

/*  */ 


#define 

begin 

{ 

#define 

end 

} 

typedef  struct 

Point 

begin 

int 

v,h; 

end 

Point; 

typedef  struct 

Rect 

begin 

Point 

topLeft; 

Point 

botRight; 

end 

Rect; 

typedef 

int 

Bool; 

#define 

Void 

/**/ 

#define 

State 

1**1 

typedef 

int 

Int; 

typedef 

long 

Long; 

typedef 

char 

Char, 

typedef 

unsigned  int 

U_int; 

typedef 

int 

Pattem_id; 

typedef 

int 

Mode_id; 

typedef 

int 

Color_id; 

typedef 

int 

Window_id; 

typedef 

int 

Menu_id; 

#define 

W  NAME 

0x0009 

#define 

W  CLOSE 

0X0002 

#define 

W  SIZE 

0x0020 

#defme 

W  HSCROLL  OxOEOO 

#define 

W_VSCROLL 

0X01  CO 

#define 

INVAL  WIN 

-1 

#define 

DESKJW1N 

0 

#define 

MAXNUMWIN  7 

#defme 

MAXNUMREC  8 

#define 

SOLID 

1 

#define 

HEAVYHATCH  2 

#define 

HATCH 

3 

#define 

LTHATCH 

4 

#define 

EMPTY 

5 
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#define 

LTWHTTE 

0 

#define 

LTBLACK 

1 

^define 

LTRED 

2 

#define 

LTGREEN 

3 

#defme 

LTBLUE 

4 

#define 

LTCYAN 

5 

#define 

LTYELLOW 

6 

#define 

LTMAGENTA 

7 

#define 

DKWHITE 

8 

#define 

DKBLACK 

9 

#define 

DKRED 

10 

#define 

DKGREEN 

11 

#define 

DKBLUE 

12 

#defme 

DKCYAN 

13 

#define 

DKYELLOW 

14 

#define 

DKMAGENTA 

15 

#define 

REPLACE 

1 

#define 

TRANSPAR 

2 

#define 

XOR 

3 

#define 

REVTRANS 

4 

#include 

"portab.h" 

#define 

ASMAINO  GEMAINO 

typedef 

begin 

struct  Evtmsg 

int 

type; 

int 

winid; 

Rect 

evrec; 

Point 

evpoint, 

int 

scrpart; 

int 

scrposn; 

int 

scrmoved; 

char 

keystroke; 

int 

mod; 

int 

mtitle; 

int 

mitem; 

end  Evtmsg; 

extern  Evtmsg  Message; 

^define  EVTTYPE  P.  Message,  type 

#define  EVTWINDOW  Message,  winid 

#define  EVTRECT  Message,  evrec 

#define  EVPOIMT  Message.evpoint 

^define  EVTSCRPART  Message. scrpart 

#define  EVTSCRPOSN  Message.scrposn 

#define  EVTSCRMOVE  Message,  scrmoved 

#define  EVTKEY  Message.keystroke 

#define  EVTMOD  Message. mod 

#define  EVTM7TTLE  Message. mtide 


I 


I 


I 


4 


4 


#define 

EVTMITEM 

Message. mitem 

#define 

REDRAW 

0 

#define 

TOPPED 

1 

#define 

CLOSEWIN 

2 

#define 

SCROLLBAR 

3 

#define 

MOUSEDOWN 

4 

define 

KEYBOARD 

5 

#define 

MOUSEUP 

6 

#define 

MENUHIT 

7 

#define 

V  PAGEUP 

0 

#define 

V  PAGEDOWN 

1 

#define 

V  ROWUP 

2 

#defme 

V  ROWDOWN 

3 

#define 

H  PAGEUP 

4 

#define 

H  PAGEDOWN 

5 

#define 

H  ROWUP 

6 

#define 

H  ROWDOWN 

7 

#define 

V  THUMB 

8 

#dcfine 

H.THUMB 

9 

#define 

MINSCR 

0 

#define 

MAXSCR 

1000 

#define 

NUL  CHR 

’\()' 

#define 

CARR  RET 

OxOD 

#define 

BACK  SP 

0x08 

#define 

BLANK 

0x20 

#defme 

MOUSEADDR 

OxOL 

#define 

HIDEMOUSE 

236 

#<Jcfine 

SHOWMOUSE 

237 

^define 

LOOKMDOWN 

0x0001 

#definc 

LOOKMUP 

0x0000 

4 


4 


4 
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